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LARGE  PAYLOAD  NUCLEAR  ROCKETS 


by 


JOHN  DONALD  CHRISTIE 


Submitted  to  the  Department  of  Mechanical  Engineering  in 
partial  fulfillment  of  the  requirements  for  the  degree  of  Doctor 
of  Science. 

ABSTRACT 

A  nuclear  rocket  power  plant  system  consisting  of  a  solid 
core  reactor,  pressure  shell,  turbopump,  and  nozzle  in  which 
hydrogen  is  used  as  the  propellant  was  investigated  analytically 
over  a  wide  range  of  conditions.  The  reactors  considered  were 
cylindrical  graphite  cores  impregnated  with  U-235  reflected  both 
radially  and  on  the  inlet  end.  Temperature  and  stress  limita¬ 
tions  were  defined  and  possible  ranges  of  operating  conditions 
within  these  limitations  were  determined.  Complete  rocket 
systems  with  corresponding  payload  weights  were  determined  for 
a  sample  earth  orbit  mission.  The  range  of  parameters  consid¬ 
ered  included: 

(1)  Hydrogen  temperatures  at  the  reactor  exit  up  to 
A800OR 

(2)  Hydrogen  pressures  at  tJie  reactor  exit  up  to 
1000  psia 

(3)  Reactor  void  fractions  for  hydrogen  flow  from 
0.2  to  0.4 

(4)  Reactor  power  levels  up  to  30,000  megawatts 
The  major  results  of  this  study  are: 

(1)  A  range  of  maximum  possible  reactor  operating 

conditions  limited  by  stresses  and  surface  temperatures 
is  determined.  This  results  in  a  plot  of  maximum 
possible  propellant  exit  temperature  vs.  hydrogen  flow 
through  the  reactor  which  is  independent  of  the  fluid 
pressure  as  long  as  the  pressure  never  exceeds  a 
specific  value  determined  from  the  stress  limitation. 
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(2)  A  simplified  analysis  which  permits  rapid  hand 
calculations  of  the  maximum  possible  ranges  of 
operation  to  within  10^  of  the  results  from  de¬ 
tailed  machine  calculations. 

(3)  A  method  for  optimizing  the  payload  or  ratio  of 
payload  to  gross  weight  for  a  particular  nuclear 
rocket  mission. 

Additional  results  possibly  of  more  general  interest  are: 

(1)  A  procedure  and  Fortran  coded  program  for  calcu¬ 
lating  heat  transfer  and  pressure  drop  character¬ 
istics  for  the  subsonic  flow  of  a  compressible 
chemically  reacting  gas  in  a  heated  tube  with 
friction. 

(2)  A  procedure  and  Fortran  coded  program  for  calcu¬ 
lating  the  thermodynamic  and  transport  properties 
of  hydrogen  over  a  temperature  range  from  1500  to 
4000°  Kelvin  and  for  pressures  from  0.01  to  100.0 
atmospheres.  The  effects  of  compressibility  fact¬ 
or  unequal  to  one  and  of  dissociation  are  taken 
into  account  where  necessary. 
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CHAPTER  I 


INTRODUCTION 

A.  Advantages  of  Nuclear  Rocket  Systems 

As  rockets  move  by  virtue  of  the  principle  of  conserva¬ 
tion  of  momentum,  it  is  desirable  to  exhaust  the  propellant 
from  the  vehicle  at  as  high  a  velocity  as  is  possible.  This 
exhaust  velocity  depends  upon  the  propellant  temperature  and 
molecular  weight.  The  interest  in  nuclear  rocket  systems  stems 
from  the  vast  amount  of  energy  available  from  the  fission  reac¬ 
tions  in  a  nuclear  reactor  of  relatively  small  mass  and  volume. 
This  energy  can  be  used  in  a  nuclear  rocket  system  to  heat  a 
propellant  with  a  low  molecular  weight  to  a  high  temperature. 
Very  large  propellant  exhaust  velocities  can  be  obtained  in 
this  manner. 

A  commonly  used  measure  of  performance  of  rocket  systems 
is  the  specific  impulse  that  they  can  develop.  Specific  im¬ 
pulse  is  defined  as  the  ratio  of  the  thrust  developed  to  the 
mass  rate  of  flow  of  propellant  exhausted  from  the  rocket. 

For  ideal  operating  conditions  when  the  nozzle  exhaust  pressure 
is  the  same  as  the  ambient  pressure,  the  specific  impulse  is 
equal  to  the  exhaust  velocity  divided  by  g^  ,  the  acceleration 
given  to  a  unit  mass  by  a  unit  force.  This  exhaust  velocity 
and  consequently  the  specific  impulse  are  directly  proportional 
to  the  square  root  of  the  propellant  stagnation  temperature  at 
the  nozzle  entrance  and  inversely  proportional  to  the  square 
root  of  the  molecular  weight. 
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In  chemical  systems  the  molecular  weight  of  the  exhaust 
gases  is  determined  by  the  fuel  and  oxidizer  employed.  The 
average  molecular  weight  of  exhaust  gases  in  chemical  systems 
is  around  18  while  diatomic  hydrogen  with  a  molecular  weight 
of  2  can  be  used  in  nuclear  systems.  For  the  same  stagnation 
temperature  the  use  of  hydrogen  would  provide  a  factor  of  three 
increase  in  specific  impulse  over  a  chemical  system. 

In  reality  the  propellant  stagnation  temperatures  that  can 
be  obtained  in  nuclear  systems  are  presently  lower  than  those 
that  can  be  reached  in  chemical  systems.  In  chemical  systems 
the  exhaust  gases  are  generated  by  combustion,  and  the  gases 
can  be  at  a  considerably  higher  temperature  than  tdie  combustion 
chamber  walls  which  are  regeneratively  cooled  in  a  liquid  pro¬ 
pellant  system.  Exhaust  gas  stagnation  temperatures  in  the  vi¬ 
cinity  of  6000°F  can  be  obtained  in  this  manner.  In  a  nuclear 
system  with  a  solid  reactor  core  the  energy  must  be  transferred 
from  the  core  material  to  the  propellant.  Consequently  the  pro¬ 
pellant  stagnation  temperature  cannot  exceed  the  maximum  possi¬ 
ble  temperature  in  the  core  which  is  determined  by  structural 
or  chemical  limits  of  the  core  material.  This  temperature  is 
less  than  6000°F  because  suitable  core  materials  have  little  or 
no  strength  at  this  temperature.  For  solid  cores  which  are 
heat  transfer  limited,  the  maximum  propellant  stagnation  temper¬ 
atures  attainable  are  nearer  to  4500°F. 
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As  a  result  of  this  temperature  limitation,  values  of 
specific  impulse  for  solid  core  nuclear  systems  are  in  the 
range  of  700  to  800  Ib^  -  sec/lb^.  This  is  a  factor  of  two 
over  the  maximum  specific  impulse  for  chemical  systems  which 
is  about  350  Ib^  -  sec/lb^  for  liquid  oxygen  -  liquid  hydrogen  (l) 

Bussard  and  DeLauer  (2)  have  made  a  comparison  of  perform¬ 
ance  conditions  for  nuclear  and  chemical  rocket  systems.  For 
a  set  of  assumed  propellant  conditions  they  show  that  the  nu¬ 
clear  rocket  systems  are  superior  to  chemical  systems  for  mis¬ 
sions  requiring  high  vehicle  burnout  velocities.  This  type  of 
study  indicates  the  region  of  interest  for  nuclear  rockets 
where  further  study  and  work  should  be  profitable. 

B.  Possible  Types  of  Nuclear  Rocket  Systems 

A  number  of  different  types  of  propulsion  systems  for  nu¬ 
clear  rockets  have  been  proposed.  They  range  from  different 
core  concepts  as  solid  and  gaseous  cores  to  other  more  indirect 
systems  involving  shock  tubes  or  electric  arc  heaters.  The  most 
highly  developed  type  of  system  is  the  solid  core  reactor  employ¬ 
ing  conventional  convective  heat  transfer  to  increase  the  eneirgy 
of  the  propellant.  The  other  more  advanced  or  exotic  systems 
have  been  proposed  as  methods  of  increasing  performance  primar¬ 
ily  by  circumventing  the  inherent  temperature  limitations  of  the 
solid  core  heat  transfer  reactors. 

*Numbers  in  parentheses  refer  to  items  in  the  bibliography. 


In  a  gaseous  core  reactor,  where  the  fissionable  fuel 
would  be  mixed  with  the  propellant,  the  exhaust  gases  could 
be  heated  to  a  higher  temperature  than  the  containing  walls  of 
the  reactor.  Consequently,  specific  impulses  greater  than 
those  obtainable  in  a  solid  core  heat  transfer  device  could  be 
obtained.  The  difficulty  with  this  type  of  system  lies  in  con¬ 
taining  the  fissionable  fuel,  or  at  least  a  large  fraction  of  it 
in  the  reactor  and  not  exhausting  it  with  the  propellant. 

Systems  employing  shock  tubes  or  electric  arc  heaters  can 
in  principle  obtain  propellant  temperatures  as  high  as 
10^  °R  (2).  They  are  generally  considered  for  low  acceleration, 
low  thrust  missions  as  the  weight  of  the  powerplant  is  large 
relative  to  the  thrust  it  can  produce. 

Another  exotic  proposal  is  a  nuclear  pulse  system  in 
which  energy  is  generated  in  a  series  of  short  pulses  by  small 
nuclear  explosions.  Effective  exhaust  velocities  corresponding 
to  exceedingly  high  temperatures  are  possible  in  principle  as 
there  is  no  fundamental  temperature  limitation  (3).  If  the  ad¬ 
verse  effects  of  the  explosions  can  be  tolerated,  the  system 
could  be  used  to  propel  large  payloads  in  space. 

Although  the  solid  core  heat  transfer  reactor  is  tempera¬ 
ture  limited  it  is  the  most  highly  developed  nuclear  propulsion 
system  and  the  only  one  that  is  being  tested  at  the  present  time. 
There  are  three  basic  types  of  solid  core  reactors  that  can  be 


considered:  the  homogeneous  thermal  or  intermediate  reactor, 
the  heterogeneous  thermal  or  intermediate  reactor,  and  the 
fast  reactor.  In  the  homogeneous  reactor  tlie  fuel  is  intimate¬ 
ly  mixed  with  a  moderator  which  slows  down  the  neutrons  and  pro¬ 
vides  a  heat  transfer  surface  for  the  propellant.  This  type 
of  system  requires  a  moderator  that  can  withstand  high  temper¬ 
atures.  In  the  heterogeneous  reactor  the  fuel  is  separated 
from  the  moderator  and  the  moderator  does  not  have  to  provide 
the  heat  transfer  surface.  Consequently,  moderator  materials  that 
cannot  withstand  high  temperatures  can  be  used  if  they  are 
cooled  independently  of  the  fuel  elements.  This  adds  to  the 
complexity  of  the  system  but  gives  more  freedom  in  the  choice 
of  materials.  In  a  fast  reactor  no  moderator  is  used  to  slow 
down  the  neutrons.  The  reactor  can  be  made  very  small, in  size  ■ 
and  the  best  high-temperature  materials  can  be  used  to  contain 
the  fuel.  The  neutron  economy  of  fast  reactors  is  less  than 
that  of  moderated  systems  and  more  fissionable  material  is  re¬ 
quired.  This  leads  to  difficult  material  problems  as  fission¬ 
able  materials  are  not  good  structural  materials  (4).  The  small 
size  of  fast  reactors  is  not  necessarily  an  advantage  because 
the  solid  core  reactors  are  heat  transfer  limited  and  a  reason¬ 
ably  large  amount  of  heat  transfer  surface  area  is  required  to 
obtain  high  propellant  exhaust  temperatures. 

The  most  promising  reactor  designis  to  date  are  the  homo¬ 
geneous  solid  core  reactors.  The  choice  of  suitable  moderator 
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materials  for  the  core  is  quite  limited  because  of  the  4000^R 
or  greater  operating  temperature  required.  In  addition  to 
having  mechanical  strength  at  high  temperature  the  material 
must  not  be  a  neutron  absorber  and  must  not  react  with  the  pro¬ 
pellant.  Ceramics  have  the  necessary  temperature  stability 
but  are  poor  mechanically  and  have  low  thermal  conductivities. 
Refractory  metals  that  have  reasonable  strength  at  high  tempera¬ 
tures  are  not  good  moderators  for  thermal  neutrons.  The  best 
material  that  is  presently  available  is  graphite  although  it 
reacts  with  hydrogen  at  high  temperatures.  This  deficiency  can 
be  corrected  by  coating  the  heat  transfer  surfaces  of  the  graph¬ 
ite  with  a  material  which  is  resistant  to  chemical  reactions 
with  hydrogen.  Some  carbides  have  been  suggested  for  this  use. 

C.  Status  of  Nuclear  Rocket  Program 

The  United  States  effort  in  the  nuclear  rocket  field  began 
in  1955  with  ’’Project  Rover.”  This  program  is  a  joint  effort 
of  the  Atomic  Energy  Commission  and  the  National  Aeronautics 
and  Space  Administration.  The  purpose  of  this  program  is  to 
prove  the  feasibility  of  solid-core  nuclear  reactors  for  heat¬ 
ing  hydrogen  to  the  temperatures  required  for  rocket  propulsion 
and  to  develop  a  flyable  nuclear  rocket  propulsion  system. 

The  initial  stages  of  the  program  involved  the  testing  of 
three  KIWI-A  reactors  to  learn  about  the  practical  limitations 
of  high  temperature  reactor  operation.  The  KIWI-B  reactor 


tests  began  in  I96I  and  are  still  in  progress.  The  objectives 
of  these  tests  are  to  demonstrate  start-up  and  full  power 
operation  using  liquid  hydrogen  as  a  coolant  and  to  select  a 
basic  core  design  to  be  used  in  the  NERVA  (Nuclear  Engine  for 
Rocket  Vehicle  Application)  system  (5).  The  final  stage  of  the 
Rover  Program  is  RIFT  (Reactor  in  Flight  Test)  and  work  has 
commenced  into  the  development  of  this  system. 

The  Rover  Program  includes  all  of  the  nuclear  rocket  reactor 
and  propulsion  system  hardware  development  done  to  date  in  the 
United  States.  A  number  of  analytical  studies  and  designs  for 
specific  missions  have  been  completed.  A  partial  list  of  some 
of  the  earlier  studies,  both  tinclassified  and  classified,  is 
given  in  reference  (6), 

D.  Description  of  System 

A  nuclear  rocket  system  is  similar  to  a  liquid  fueled 
chemical  rocket  system  in  most  respects.  The  principle  differ¬ 
ence  between  the  two  is  that  the  nuclear  rocket  has  a  nuclear 
reactor  rather  than  a  combustion  chamber  to  energize  the  exhaust 
gases,  and  it  only  requires  a  single  propellant  rather  than  a 
fuel  and  an  oxidizer.  A  schematic  diagram  of  a  nuclear  rocket 

is  shown  in  Fig.  1-1.  The  power  plant  is  defined  to  consist  of 

» 

the  nuclear  reactor  and  reflector,  the  pressure  shell,  turbopump, 
and  the  nozzle.  The  complete  rocket  then  consists  of  the  power- 
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PAYLOAD,  CONTROLS 


FIG.  I  -  I  ;  NUCLEAR  ROCKET  SCHEMATIC 


plant,  propellant,  propellant  tank,  structure,  controls,  and 
payload. 

The  hydrogen  propellant  is  stored  in'  liquid  form.  It 
first  flows  through  the  pump  where  its  pressure  is  increased 
to  a  value  considerably  above  the  critical  pressure  which  is 
12.77  atmospheres  (7).  This  avoids  any  possible  problems 
that  might  arise  with  two-phase  flow.  The  hydrogen  is  then 
used  to  regeneratively  cool  the  nozzle  and  reflector  before 
it  is  heated  to  its  maximum  temperature  in  the  reactor  and 
exhausted  through  the  convergent-divergent  nozzle.  A  small 
fraction  of  the  hot  hydrogen  is  removed  from  the  main  flow 
before  it  is  exhausted  through  the  nozzle  to  drive  the  tur¬ 
bine  which  is  connected  to  the  pump.  Fig.  1-2  is  a  schematic 
diagram  of  the  powerplant  showing  the  path  of  the  propellant 
flow  through  the  system.  • 

An  alternate  way  of  driving  the  pump  would  be  to  use  a 
topping  turbine  in  which  all  of  the  hydrogen  flows  tdirough 
the  turbine  before  entering  the  reactor.  In  this  system  only 
a  small  amount  of  work  is  derived  from  each  pound  of  a  large 
mass  flow  while  in  the  bleed  system  ten  to  twenty  times  as 
much  work  per  pound  is  taken  from  the  hotter  and  smaller  mass 
flow.  The  topping  system  can  be  more  efficient  as  all  of  the 
propellant  is  used  to  generate  thrust  but  the  control  problems 
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associated  with  it  make  it  less  favorable  than  the  bleed  system. 

In  Fig.  1-2  the  control  rods  are  located  in  the  reflector 
rather  than  in  the  core.  This  type  of  control  system  will  per¬ 
turb  the  shape  of  the  power  distribution  in  the  core  less 
radically  than  control  rods  in  the  core.  Control  rods  in  the 
core  would  not  be  able  to  withstand  the  high  temperatures 
developed  and  would  have  to  be  cooled  separately.  The  position¬ 
ing  of  the  control  rods  in  the  reflector  avoids  this  cooling 
problem. 


CHAPTER  II 


OBJECTIVES  AND  LIMITATIONS 

A.  Objectives 

The  objectives  of  this  study  are  to  obtain  a  method  of 
characterizing  the  nuclear  rocket  system  with  a  minimum  amount 
of  complexity,  determine  limiting  values  of  performance,  and 
obtain  a  method  for  optimizing  the  total  rocket  for  a  given  mis¬ 
sion. 

To  characterize  the  system  with  a  minimum  amount  of  com¬ 
plexity  requires  the  use  of  the  minimum  number  of  independent 
variables  that  is  possible.  It  is  also  desirable  to  break  up 
the  system  where  possible  so  that  idle  different  parts  or  sub¬ 
systems  that  are  independent  of  the  whole  can  be  investigated 
separately.  The  analysis  used  to  describe  the  system  is  less 
detailed  than  a  final  design  study  for  a  particular  rocket  would 
be,  yet  it  is  detailed  enough  to  make  generalizations  about 
desirable  characteristics  and  choice  of  independent  variables. 

The  characteristics  to  be  determined  include  those  for 
the  complete  system  and  for  the  powerplant  alone  where  possible. 

The  important  characteristics  of  the  powerplant  include  the 
size  and  weight  of  the  individual  components,  the  power,  tdirust, 
and  specific  impulse  developed,  and  the  amount  of  propellant 
flow  required  to  obtain  this  power.  The  powerplant  was  defined 
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previously  to  consist  of  the  reactor  and  reflector,  pressure 
shell,  nozzle,  and  turbopump.  The  weights  of  the  components 
including  the  powerplant,  the  total  system  weight,  and  the  pay- 
load  are  among  the  most  important  characteristics  of  the  com¬ 
plete  rocket  system. 

In  order  to  determine  limiting  values  of  performance,  the 
causes  of  component  failure  or  restrictions  on  the  manufactur¬ 
ing  of  items  must  be  determined  and  then  related  by  the  analy¬ 
sis  to  the  performance  characteristics  of  the  system.  Values 
of  system  characteristics  can  then  be  determined  for  conditions 
that  reach  but  do  not  exceed  these  limitations. 

Once  a  method  and  analytical  procedure  are  developed  to 
characterize  the  nuclear  rocket  it  is  desirable  to  find  a 
method  to  optimize  the  system  for  a  particular  mission.  For  most 
rocket  systems  the  best  configuration  for  a  given  miss-ion  is 
considered  to  be  the  one  which  has  the  minimum  weight.  This 
implies  that  the  payload  weight  or  the  ratio  of  payload  to  gross 
weight  should  be  maximized  at  a  fixed  gross  weight.  An  alterna¬ 
tive  would  be  to  minimize  the  gross  weight  for  a  fixed  payload 
weight. 

For  all  the  above  objectives  a  particular  detailed  model 
of  the  nuclear  rocket  is  used  in  the  analysis.  A  further  object¬ 
ive  of  this  study  is  to  find  more  rapid  simplified  methods  to 
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get  approximate  answers  to  the  above  problems  where  possible. 

This  is  only  possible  after  the  detailed  calculations  are  com¬ 
pleted  to  give  a  basis  for  comparison. 

B.  Limitations 

A  number  of  limitations  are  set  on  the  range  of  variables 
in  this  study.  The  reactors  considered  are  limited  to  coves  of 
graphite  impregnated  with  U-235  with  a  carbon  to  uranium  atom 
ratio  of  500,  which  means  that  the  reactor  is  intermediate.  For 
larger  carbon  to  uranium  ratios  the  average  neutron  energy  would 
approach  the  thermal  range  and  the  reactor  sizes  would  increase. 
Carbon  to  uranium  ratios  less  than  500  may  not  be  obtainable  with¬ 
in  present  technology.  The  core  geometry  for  all  cases  is  a 
right  circular  cylinder  with  uiiiformly  spaced  coolant  channel 
holes.  The  core  is  reflected  radially  and  on  the  inlet  end 
where  the  hydrogen  propellant  enters  the  core. 

The  radial  reflector  is  8  centimeters  of  beryllium  for-  all 
reactors.  This  value  is  close  to  the  optimum  for  minimum  re¬ 
actor  weight  per  unit  flow  area  for  the  range  of  reactors  consid¬ 
ered  (8) .  The  variation  of  reactor  size  and  the  local  power 
peaking  caused  by  changing  the  radial  reflector  thickness  is  also 
shown  in  reference  8.  The  end  reflector  for  all  reactors  is 
3  centimeters  of  beryllium.  This  thickness  was  used  on  the  bas?- 
is  of  its  effect  on  the  axial  power  profile.  It  shapes  the  power 
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distribution  in  a  desirable  way  and  does  not  cause  excessive 
local  power  peaking  at  the  core  reflector  interface. 

The  propellant  is  restricted  to  hydrogen  although  some  con¬ 
sideration  has  been  given  to  other  fluids  as  ammonia  and  water 
(9,  lO).  The  hydrogen  is  considered  to  be  stored  in  liquid 
form  in  the  propellent  tank.  Only  one  tank  pressure  of  20 
psia  is  used  in  the  study.  The  value  of  20  psia  was  considered 
to  be  high  enough  to  avoid  cavitation  problems  at  the  pump  inlet 
but  not  so  high  as  to  add  considerable  additional  weight  to  tiie 
tankage , 

The  turbopump  system  is  limited  to  a  bleed  turbine  rather 
than  a  topping  turbine  as  it  is  presently  the  type  being  used 
in  the  first  nuclear  rocket  engines  and  does  not  involve  addition 
al  control  problems.  The  nozzles  are  restricted  to  the  converg¬ 
ent-divergent  regene ratively  cooled  type  with  an  area  ratio  of 
50  to  one. 

C.  Assumptions 

The  following  assumptions  are  made  throughout  the  analysis 
unless  it  is  specifically  stated  otherwise  for  a  particular 
case. 

1.  The  reactor  is  considered  to  be  homogeneous  so  that 
all  solid  parts  of  the  core  are  generating  power.  This  is  equiv¬ 
alent  to  assuming  that  any  structural  elements  which  are  not 
loaded  with  fuel  and  may  be  present  in  a  particular  core  design 


have  a  negligible  effect  on  the  average  core  power  density 
and  do  not  cause  local  power  peaking  problems. 

2.  The  radial  power  profile  in  the  reactor  core  is  flat 
so  the  ratio  of  the  maximum  to  average  power  is  one  at  any  ax¬ 
ial  position  in  the  core. 

3.  The  coolant  channel  holes  are  uniformly  spaced  in  the 
core.  Together  with  the  above  two  assumptions  this  implies 
that  an  equal  amount  of  heat  is  removed  from  each  coolant  chan¬ 
nel. 

4.  The  thermal  conductivity  and  structural  properties 
of  graphite  are  independent  of  temperature  over  the  range  of 
reactor  core  temperatures  considered.  In  the  analysis  average 
properties  of  graphite  taken  from  design  curves  are  used. 

5.  The  temperature  of  the  hydrogen  propellent  at  tlie  en¬ 
trance  to  the  reactor  core  is  400^R.  This  implies  that  there 
is  sufficient  heating  of  the  hydrogen  in  the  regeneratively 
cooled  nozzle  and  reflector  to  raise  its  temperature  from  below 
the  critical  temperature  of  6o°R  to  400*^R  which  is  an  increase 
in  enthalpy  of  approximately  I300  BTU/lb. 
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CHAPTER  III 


OVERALL  APPROACH 

A.  General 

In  order  to  characterize  the  nuclear  rocket  system  with 
a  minimum  amount  of  complexity,  it  is  desirable  to  separate  the 
different  independent  parts  where  possible.  The  characteristics 
of  the  powerplant  as  defined  to  include  the  reactor,  reflectors, 
pressure  shell,  turbopump,  and  nozzle  can  be  determined  inde¬ 
pendently  of  any  mission.  Consequently,  the  powerplant  is  in¬ 
vestigated  first  and  then  tied  into  the  complete  system  when 
additional  parameters  are  required. 

B .  Powerplant 

The  reactor  is  the  one  component  in  a  nuclear  rocket  that 
differentiates  it  from  liquid  chemical  systems  and  is  limiting 
in  the  sense  that  it  is  the  power  producing  element.  The  re¬ 
strictions  on  the  reactor  arise  from  nuclear  physics  and  from 
mechanical  and  chemical  considerations. 

The  primary  requirement  that  determines  the  reactor  size 
is  that  it  be  just  critical.  For  a  given  set  of  reactor  mater¬ 
ials  any  number  of  critical  right  circular  cylinders  could  be 
constructed.  These  would  range  from  long  thin  cylinders  to  short 
ones  resembling  a  pancake  shape.  The  critical  dimensions  of  the 
core  also  depend  on  tdie  reflector  material,  reflector  thickness, 
and  on  the  core  and  reflector  void  fractions.  The  void  fraction 
is  the  ratio  of  the  core  cross  sectional  area  which  is  free  for 
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coolant  flow  to  the  total  area.  The  effect  of  these  parameters 
on  the  critical  dimensions  of  reactor  cores  has  been  studied 
in  some  detail  by  Plebuch  (8).  His  results  for  critical  sizes 
of  rocket  reactors  are  used  in  this  study. 

The  further  possible  restrictions  that  may  limit  the  reac¬ 
tor  performance  are  mechanical  strength,  erosion,  and/or  a  chem¬ 
ical  reaction  between  the  core  material  and  the  propellant.  To 
determine  which  if  any  of  these  factors  is  limiting  performance 
the  heat  transfer  and  pressure  drop  characteristics  of  the  cool¬ 
ant  and  the  temperature  and  stress  distributions  in  the  core 
must  be  calculated.  Maximum  permissible  values  of  temperatures 
and  stresses  must  be  set  for  the  reactor  materials  and  compared 
with  the  maximum  values  calculated  for  given  coolant  conditions 
in  a  particular  reactor.  If  any  of  tdie  limitations  are  ex¬ 
ceeded,  the  coolant  conditions  which  are  independent  variables 
must  be  changed  and  the  process  repeated  until  no  limitations 
are  exceeded.  In  this  manner  a  range  of  allowable  coolant  con¬ 
ditions  can  be  obtained  for  a  given  reactor.  The  whole  process 
can  be  repeated  for  a  number  of  different  reactors. 

The  characteristics  of  the  whole  powerplant  can  be  deter¬ 
mined  after  the  heat  transfer  and  pressure  drop  characteristics 
in  the  core  are  determined.  The  pressure  shell  size  and  weight 
can  be  obtained  after  the  maximum  pressure  in  the  reactor  core 
is  calculated.  This  pressure  and  tiie  reactor  size  are  sufficient 
to  determine  the  dimensions  of  the  pressure  shell. 

The  nozzle  size  and  weight  are  caluclated  for  a  given  ratio 
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of  the  exit  area  to  throat  area  of  50.  The  nozzle  size  also 
depends  upon  the  mass  flow  rate  of  propellant  through  it  and  the 
stagnation  conditions  of  this  propellant.  The  stagnation  proper¬ 
ties  of  the  fluid  are  known  independent  variables  and  the  mass 
rate  of  flow  of  propellant  is  determined  from  the  reactor  size 
and  the  fluid  conditions  at  the  reactor  exit. 

The  turbopump  size  and  weight  depend  on  the  volume  flow 
rate  of  propellant  and  the  pressure  rise  required  across  the 
pump.  The  hydrogen  storage  pressure  is  fixed  at  20  psia,  and 
the  pump  outlet  pressure  can  be  related  to  the  pressure  of  the 
propellant  at  the  inlet  to  the  reactor.  The  volume  rate  of  flow 
is  simply  related  to  the  mass  flow  rate  as  the  hydrogen  is  liquid 
at  the  inlet  to  the  pump.  The  bleed  flow  rate  of  hydrogen  re¬ 
quired  to  run  the  turbine  is  determined  by  the  pump  work.  The 
amount  of  work  developed  per  pound  of  hydrogen  flowing  through 
the  turbine  is  fixed  so  the  bleed  rate  is  just  the  pump  work  de- 
vided  by  this  value. 

C.  Total  Rocket  System 

The  complete  powerplant  characteristics  can  be  determined 
as  outlined  above  without  considering  a  mission  or  an  operating 
time  for  the  rocket.  To  determine  the  characteristics  of  the 
whole  rocket  the  "burning”  or  operating  time  must  be  known. 

Once  the  burning  time  is  assumed  or  calculated  for  a  particu¬ 
lar  mission  the  propellant  weight  is  easily  determined.  Knowing 
the  weight  and  volume  of  propellant  the  amount  of  tankage  required 
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can  be  determined.  The  thickness  of  the  tank  walls  is  calcu¬ 
lated  such  that  the  stresses  are  below  a  specified  value  for 
the  material. 

The  weight  of  the  structural  members  to  tie  the  different 
components  together  and  make  a  solid  frame  is  assumed  to  be  pro¬ 
portional  to  the  gross  weight  of  the  rocket.  The  mission  cal¬ 
culations  yield  the  ratio  of  the  gross  to  empty  weight  as  well 
as  the  burning  time.  With  these  values  and  the  flow  rate  of 
propellant  through  the  powerplant  the  gross  weight  is  easily 
determined. 

The  payload  weight  for  the  mission  is  then  the  difference 
between  the  gross  weight  and  the  weights  of  all  the  other  com¬ 
ponents.  Using  this  method  of  calculation  it  is  possible  to 
obtain  negative  numerical  values  for  the  payload  weight.  When 
this  occurs,  it  implies  that  the  particular  configuration  contains 
a  powerplant  that  does  not  develop  enough  power  per  unit  weight 
to  do  the  mission. 

D.  Choice  of  Independent  Variables 

The  foregoing  method  implies  a  choice  of  certain  independent 
variables  yet  leaves  the  choice  of  others  quite  free.  A  number 
of  quantities  which  could  be  varied  but  would  only  have  a  small 
effect  on  the  system  are  fixed  for  all  calculations  in  the  study. 

The  critical  size  of  a  reactor  can  be  determined  if  the 
void  fraction  v  and  the  length  L  are  specified  because  the 
core  and  reflector  materials  are  fixed  and  the  reflector  thick- 
nesses  are  not  varied.  It  will  be  shown  in  the  next  chapter  that 
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only  the  void  fraction  need  be  independent  to  determine  the 
critical  length  L  and  radius  R  if  in  addition  it  is  speci¬ 
fied  that  the  reactor  is  to  have  the  minimum  possible  weight 
for  a  given  flow  area.  The  flow  area  is  defined  as  the  part 
of  the  reactor  cross  sectional  area  which  is  free  for  coolant 
flow. 

In  order  to  calculate  the  heat  transfer  and  pressure  drop 
characteristics  of  the  coolant  in  the  core  it  is  necessary  to 
specify  the  shape  of  the  axial  power  distribution  in  the  core, 
the  diameter  of  a  coolant  channel  or  the  magnitude  of  the  power 
distribution  as  a  function  of  axial  position,  the  inlet  and  out¬ 
let  temperatures  of  the  coolant,  the  pressure  of  the  coolant  at 
one  end  of  the  core,  and  either  the  flow  per  unit  area  or  tiie 
Mach  number  of  the  coolant  at  the  same  end  of  the  core  where 
the  pressure  is  specified.  The  conditions  at  the  exit  of  tlie 
reactor  were  chosen  as  independent  variables  where  possible  as 
it  is  easier  to  anticipate  the  effects  of  their  changes  and  ap¬ 
proach  the  desirable  range  of  operation  than  it  is  when  using 
the  conditions  at  the  inlet  end  of  the  reactor.  The  coolant 
flow  rate  per  unit  area  w/A^  was  chosen  as  independent  rather 
than  the  Mach  number  at  the  reactor  exit  because  it  turned  out 
to  be  more  significant  to  the  overall  performance.  It  is  rela¬ 
tively  easy  to  insure  that  the  Mach  number  is  not  limiting 
when  w/A^  is  independent  but  the  inverse  is  not  true.  The 
other  independent  coolant  conditions  are  the  temperature  and 
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pressure  at  the  reactor  exit,  Tg^  and  pgg  respectively, 
and  the  temperature  at  the  reactor  inlet  Unless  it  is 

otherwise  specified  for  a  particular  case,  the  diameter  of  a 
coolant  channel  is  specified  and  not  the  magnitude  of  the  power 
distribution. 

To  determine  the  interior  temperatures  and  the  stresses 
in  the  core,  it  is  necessary  to  know  the  coolant  channel  dia¬ 
meter  and  the  local  pressure  and  power  density.  If  the  coolant 
channel  diameter  is  not  specified  as  independent,  it  can  be 
determined  before  any  stress  calculations  are  started  as  the 
magnitude  of  the  power  distribution  would  then  be  known.  Sim¬ 
ilarly  if  the  channel  diameter  is  independent,  the  local  power 
density  is  determined  before  the  interior  temperatures  and 
stresses  are  calculated. 

The  parameters  which  are  necessar'y  for  the  calculation  of 
the  other  powerplant  components  are  either  fixed  or  determined 
from  the  above  variables.  The  fixed  quantities  as  mentioned  in 
Chapter  II  are  the  nozzle  area  ratio  and  the  type  of  turbopump. 
The  amount  of  work  obtained  from  each  pound  of  hot  hydrogen 
in  the  turbine  is  also  fixed  rather  than  varied  with  pressure 
level  or  other  flow  conditions.  The  propellant  pressure  required 
at  the  pump  outlet  is  calculated  back  from  the  pressure  at  the 
reactor  inlet.  The  inlet  pressure  to  the  pump  or  tank  storage 
pressure  is  fixed  at  20  psia. 

The  additional  independent  variables  required  for  the  cal- 
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culation  of  the  complete  rocket  system  involve  the  mission 
characteristics.  The  sample  mission  used  in  this  study  is  for 
a  single  stage  rocket  which  lifts  off  a  stationary  earth  and 
takes  a  payload  into  a  300  mile  high  earth  orbit.  The  two  in¬ 
dependent  quantities  which  are  specified  are  the  altitude'  of 
the  orbit  h^  and  the  velocity  increment  required  AV^.  With 
these  quantities  and  the  characteristics  of  the  powerplant  all 
the  component  sizes  and  weights  can  be  calculated.  The  ability 
of  the  rocket  to  carry  a  payload  on  the  given  mission  and  the 
magnitude  of  the  payload  is  then  determined. 

Table  3-1  is  a  summary  of  the  independent  variables  and  of 
the  other  fixed  quantities  required  to  determine  the  character¬ 
istics  of  the  nuclear  rocket  system  as  described  here  and  in  the 
previous  chapter. 
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TABLE  3-1 


INDEPENDENT  VARIABLES  USED  TO  DETERMINE 
NUCLEAR  ROCKET  CHARACTERISTICS 


V 

d 


w/Aj 

QDIST 


-  reactor  void  fraction 

-  diameter  of  coolant  channel  in  reactor 

-  temperature  of  propellant  at  reactor  exit 

-  temperature  of  propellant  at  reactor  entrance 

-  pressure  of  propellant  at  reactor  exit 

-  propellant  flow  rate  per  unit  area  in  reactor 

-  normalized  axial  power  distribution  in  reactor 

-  velocity  increment  required  for  mission 

-  change  in  altitude  required  in  gravity  field 


FIXED  QUANTITIES  REQUIRED  TO  DETERMINE 
NUCLEAR  ROCKET  CHARACTERISTICS 


t„  -  thickness  of  radial  reflector  around  reactor 

R 

t„  -  thickness  of  end  reflector  on  reactor 

hf 

Ap/A„  -  ratio  of  exit  to  throat  area  of  convergent 

hi  X 

devergent  nozzle 

p^  -  pressure  of  hydrogen  propellant  in  storage  tank 

AH^  -  enthalpy  drop  per  pound  of  hydrogen  in  turbine  for 

bleed  turbopump  system 
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CHAPTER  IV 
REACTOR  CALCULATIONS 

A.  Critical  Sizes 

The  reactors  considered  in  this  tliesis  are  limited  to 
solid  graphite  moderated  cores  impregnated  with  U-235  with  a 
carbon  to  uranium  atom  ratio  of  500.  The  cores  are  right  cir¬ 
cular  cylinders  reflected  radially  and  on  one  end  where  the 
coolant  enters  the  reactor. 

This  type  of  reactor  has  been  studied  in  considerable  de¬ 
tail  by  Plebuch  (8).  His  study  of  the  nuclear  physics  of 
rocket  reactors  was  undertaken  in  conjunction  with  this  study 
to  tie  toegther  the  reactor  physics  with  the  overall  system 
analysis.  The  numerical  results  from  his  study  are  used  in 
this  thesis  rather  than  using  less  sophisticated  and  less  ac¬ 
curate  analytical  calculations. 

Plebuch  has  considered  the  effect  of  different  variations 
in  core  and  reflector  properties  on  the  critical  sizes  and 
weights  of  the  reactors  and  on  the  power  distributions  which 
they  generate.  The  variables  taken  into  account  in  his  study 
include  fuel  to  moderator  ratio,  solid  fraction  of  the  core, 
reflector  material,  reflector  thickness,  reflector  solid  frac¬ 
tion,  and  reflector  position.  The  solid  fraction  s  is  just 
1  minus  the  void  fraction  v  .  Results  are  presented  for 
both  analytical  "modified”  three  group  and  numerical  two  dimen¬ 
sional  multigroup  calculations. 
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For  a  given  fuel  to  moderator  ratio,  reflector  material, 
and  reflector  thicknesses  a  series  of  reactor  sizes  can  be 
determined  for  a  given  core  void  fraction.  Fig.  Ji-l  is  a  plot 
of  reactor  weights  versus  the  cross  sectional  area  free  for 
coolant  flow.  Four  different  curves  are  shown  for  core  void 
fractions  from  0.1  to  0.1)-.  The  radial  reflector  is  8  centi¬ 
meters  thick  and  the  end  reflector  3  centimeters,  the  material 
being  beryllium  in  both  cases.  The  curve  which  is  tangent 
to  the  constant  void  fraction  curves  defines  the  locus  of 
minimum  reactor  weights  for  given  flow  areas.  It  is  interest¬ 
ing  to  note  that  the  minimum  reactor  weight  for  a  given  void 
fraction  does  not  coincide  with  the  minimum  reactor  weight  for 
a  given  flow  area. 

The  corresponding  plots  of  the  reactor  radius  and  lencpth 
versus  flow  area  are  shown  in  Figs.  4-2  and  4-3  respectively. 
The  dashed  lines  show  how  the  radius  and  length  vary  along  the 
minimum  weight  per  unit  flow  area  curve.  By  cross  plotting, 
the  reactor  radius  and  height  corresponding  to  the  minimum 
weight  curve  are  obtained  versus  the  reactor  void  fraction. 
This  is  shown  in  Fig.  4-4.  The  core  length  to  diameter  ratio 
decreases  along  the  minimum  weight  curve  as  the  void  fraction 
and  flow  area  increase.  This  can  be  seen  from  Fig.  4-4  or 
from  Figs.  4-2  and  4-3  in  combination.  For  a  void  fraction  of 
0.1  the  reactor  length  to  diameter  ratio  is  1.14  while  for 
V  =  0.4  the  ratio  is  reduced  to  0.725* 
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ET  .  REACTOR  WEIGHT  (  POUNDS  ) 


50.0 


FIG.  4-2:  REACTOR  RADIUS  VS  FLOW  AREA 


♦•a* 


FIG.4-3:  REACTOR  LENGTH  VS  FLOW  AREA 


The  use  of  the  reactor  with  the  minimum  weight  for  a 
given  flow  area  was  suggested  earlier  by  Herrington  and  this 
author  (11,  12)  and  the  idea  has  also  been  used  independently 
for  reactor  weight  studies  of  different  types  of  reactors  (13) • 
This  makes  it  possible  to  determine  the  critical  size  and  weight 
of  the  reactor  with  only  one  independent  variable  rather  than 
two.  The  independent  variable  chosen  for  this  study  is  the  core 
void  fraction.  Both  the  critical  radius  and  height  can  be 
determined  from  Fig.  k-k  and  then  the  area  and  weight  are  easily 
calculated. 

The  radial  reflector  thickness  of  8  centimeters  is  used 
for  all  reactors  rather  than  including  the  reflector  thickness 
as  a  variable.  The  variation  of  reactor  weight  per  unit  flow 
area  with  radial  reflector  thickness  has  been  determined  by 
Plebuch  and  is  shown  in  Fig.  4-5  (reproduced  from  reference  8). 
The  core  radii  of  interest  at  void  fractions  of  0.2  or. greater 
are  greater  than  25  inches  or  63*5  centimeters  as  is  shown  in 
Fig.  4-4.  Fig.  4-5  shows  that  the  8  centimeter  reflector  gives 
close  to  the  minimum  weight  per  unit  flow  area  for  core  radii 
greater  than  75  centimeters  and  that  it  is  a  reasonable  comprom¬ 
ise  if  one  value  is  to  be  chosen  for  all  radii  from  63.5  to  100 
centimeters. 

The  second  reason  for  using  the  8  centimeter  reflector 
thickness  is  to  avoid  extreme  local  power  peaking  problems  at 
the  core  reflector  interface.  For  uniform  uranium  loading  in 
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REACTOR  WEIGHT  PER  UNIT  FLOW  AREA  (KG/SQ.MJ 


the  radial  direction  there  is  a  local  power  peak  at  the  core 
reflector  interface  due  to  relatively  slow  neutrons  being  re¬ 
flected  back  into  the  core.  The  power  peaking  is  defined  to 
be  the  ratio  of  the  power  at  the  core  reflector  interface  to 
the  power  at  the  center  of  the  core.  The  dependence  of  this 
power  peaking  on  the  radial  reflector  thickness  is  shown  in 
Fig.  4-6  (reproduced  from  reference  8).  For  a  reflector  thick¬ 
ness  of  8  centimeters  the  peaking  goes  from  1.6  at  a  radius  of 
60  centimeters  down  to  slightly  less  than  1.0  at  a  radius  of 
100  centimeters.  This  is  quite  reasonable  compared  to  the 
peaking  problems  associated  with  the  thicker  reflectors.  The 
power  peaking  associated  with  the  8  centimeter  radial  reflector 
can  be  reduced  and  the  radial  power  profile  flattened  with 
nonuniform  fuel  loading  and  possibly  by  distributing  absorbing 
materials  in  the  reactor.  The  amount  of  nonuniform  loading  re¬ 
quired  is  discussed  by  Plebuch  (8). 

The  3  centimeter  end  reflector  was  chosen  for  its  power 
shaping  capabilities.  It  is  desirable  to  increase  the  power 
density  of  rocket  reactors  as  much  as  possible  so  that  either 
more  power  is  transferred  to  the  propellant  for  a  given  reactor 
or  a  smaller  reactor  can  be  used  to  get  the  same  propellant  con¬ 
ditions  at  the  reactor  exit.  A  reflector  on  the  inlet  end  of 
the  reactor  increases  the  average  power  density  in  the  reactor 
by  increasing  the  power  level  near  the  inlet.  To  the  first  ap- 


-33- 


FIG. 4-6:  EFFECT  OF  BERYLLIUM  REFLECTOR  THICKNESS 
ON  RADIAL  POWER  PEAKING  FOR  C/U- 235  *  500 


proximation  the  axial  power  profile  in  an  unreflected  reactor 
is  a  sine  wave  whereas  in  a  reactor  reflected  on  one  end  it  is 
a  chopped  sine  wave.  In  reality  there  is  a  local  power  peaking 
at  the  core  reflector  interface  which  is  caused  by  tdie  absorp¬ 
tion  of  neutrons  which  have  been  slowed  down  and  reflected 
back  into  the  core.  The  power  shaping  and  power  peaking  effects 
of  the  reflector  are  shown  in  Fig.  4-7.  It  can  be  seen  that 
an  8  centimeter  reflector  causes  a  power  peak  almost  twice 
as  large  as  the  3  centimeter  reflector.  High  power  peaking 
at  the  inlet  end  of  the  reactor  could  cause  extremely  high 
temperatures  to  occur  in  the  core  material  which  would  be  un¬ 
desirable.  The  3  centimeter  end  reflector  is  used  for  all  re¬ 
actors  in  this  study  unless  otherwise  specified  as  it  shapes 
the  power  profile  in  a  desirable  way  but  does  not  cause  exces¬ 
sive  peaking. 

B.  Heat  Transfer  and  Pressure  Drop  Characteristics 

In  order  to  determine  when  conditions  in  the  reactor  are 
such  that  temperatures  or  stresses  will  limit  the  performance 
the  local  values  of  these  parameters  must  be  calculated.  The 
local  fluid  properties,  surface  temperature  of  the  coolant  chan¬ 
nel,  and  power  density  can  be  determined  before  the  interior 
temperatures  and  stresses  in  the  core  are  calculated.  The  in¬ 
dependent  variables  required  for  these  heat  transfer  calculations 
are  the  coolant  stagnation  temperature  and  pressure  at  the  reac¬ 
tor  exit,  Tgg  and  Pgg  respectively,  the  coolant  temperature 
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ON  AXIAL  POWER  PRORLE 


at  the  reactor  inlet  the  coolant  flow  rate  per  unit  area 

w/A^,  the  channel  diameter  d  and  length  L,  and  the  shape 
of  the  power  distribution.  An  alternative  is  to  specify  the 
magnitude  of  the  power  distribution  at  each  position  and  cal¬ 
culate  the  diameter  of  coolant  channel  required.  In  addition 
to  these  variables  it  is  also  necessary  to  have  relations  for 
the  heat  transfer  coefficient  and  friction  factor  in  terms 
of  the  properties  of  the  flow.  The  most  simple  relations  in¬ 
volve  assuming  average  values  for  these  coefficients  which  are 
good  over  the  length  of  the  coolant  channel.  This  would  be 
correct  only  if  the  fluid  properties  did  not  change  with  tempera¬ 
ture  which  is  not  true  for  a  compressible  gas.  Empirical  cor¬ 
relations  for  heat  transfer  coefficients  that  are  functions  of 
the  heat  transfer  surface  temperature  as  well  as  the  fluid 
properties  have  been  developed  for  flow  conditions  similar  tO 
those  occurring  in  nuclear  reactors  (l4,  15).  These  conditions 
include  the  effects  of  large  temperature  differences  between 
the  heat  transfer  surface  and  the  fluid  which  occur  near  the 
inlet  end  of  rocket  reactors.  The  correlations  are  in  general 
complex  in  the  sense  that  they  employ  an  artificial  film 
temperature  at  which  the  fluid  properties  should  be  evaluated. 
This  film  temperature  is  usually  defined  as  the  arithmetic 
average  of  the  local  fluid  temperature  and  the  surface  tempera¬ 
ture  of  the  coolant  channel  wall.  Some  of  the  correlations  also 
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are  functions  of  the  distance  traversed  along  the  tube  measured 
from  the  inlet  end.  The  correlation  used  in  most  of  this  work 
is  one  by  Taylor  and  Kirchgessner  (l4)  developed,  for  heat  trans¬ 
fer  to  helium  flowing  in  a  tube.  Tests  have  been  made  that  in¬ 
dicate  that  hydrogen  heat  transfer  results  are  correlated  equal¬ 
ly  well  with  the  same  expression  (l*i) .  The  correlation  is  pre¬ 
sented  and  discussed  further  in  Appendix  B  where  all  the  heat 
transfer  and  pressure  drop  equations  are  developed. 

The  friction  factor  correlation  used  in  the  calculations 
is 

f  =  0.046/(Reg)°*^  (4-1) 

rather  than  the  more  complicated  Karman-Nikuradse  relation  which 
must  be  solved  by  trial  and  error.  Over  the  range  of  Reynolds 
numbers  from  5000  to  200,000  Eq.  4-1  fits  the  data  quite  well 
(14, 16).  This  range  of  Reynolds  numbers  includes  Idle  values, 
occurring  in  the  coolant  channels  of  nuclear  rocket  reactors. 

To  do  the  necessary  detailed  calculations  the  thermodynam¬ 
ic  and  transport  properties  of  hydrogen  gas  are  required.  The 
equations  for  these  properties  have  been  obtained  or  developed 
and  translated  into  Fortran  language  for  use  in  machine  computa¬ 
tions.  ^e  subroutine  will  produce  the  properties  of  normal 
hydrogen  for  temperatures  between  150*^  and  4000°  Kelvin  and  over 
a  range  of  pressures  from  0.01  to  100.0  atmospheres.  The  effects 
of  dissociation  and  compressibility  factor  unequal  to  one  are 
taken  into  account  where  necessary. 
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The  enthalpy,  entropy,  and  specific  heat  of  the  ideal  gas 
are  calculated  using  empirical  equations  taken  from  reference 
17.  The  compressibility  factor  is  calculated  using  an  empirical 
equation  obtained  from  curve  fitting  published  data  (I8)  and 
from  second  virial  coefficient  calculations.  The  equations  for 
calculating  the  thermodynamic  properties  and  their  partial  deriv¬ 
atives  including  dissociation  and  compressibility  effects  were 
derived  from  basic  thermodynamic  relations. 

The  transport  properties  are  calculated  using  a  modified 
Buckingham  potential  for  temperatures  up  to  1000*^K  (I9).  Above 
lOOO^K  these  properties  are  calculated  using  equations  and  col¬ 
lision  integrals  developed  by  Vanderslice  et  al  (20).  High  pres¬ 
sure  corrections  for  the  transport  properties  are  determined  us¬ 
ing  equations  from  MBS  RP  1932  (21). 

The  development  of  these  relations  and  the  Fortran  subrou¬ 
tine  is  presented  in  Appendix  A.  Since  this  subroutine  was  de¬ 
veloped  other  programs  for  calculating  hydrogen  properties  have 
become  available  in  the  literature  (22,  23). 

The  actual  heat  transfer  and  pressure  drop  characteristics 
can  be  calculated  with  different  degrees  of  accuracy  and  sophis¬ 
tication.  The  first  calculations  were  done  using  an  average 
heat  transfer  coefficient  and  averaged  properties  for  hydrogen. 
Other  calculations  done  using  a  local  heat  transfer  coefficient 
dependent  on  the  local  hydrogen  properties  and  the  solid  surface 
temperature  show  the  inadequacy  of  the  first  calculations.  An 
example  of  the  errors  that  can  be  caused  by  using  an  average 
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heat  transfer  coefficient  is  shown  in  Fig.  4-8.  The  curves  are 
for  a  run  where  the  wall  temperature  was  specified  as  constant 
rather  than  specifying  the  shape  of  the  power  distribution.  The 
shape  of  the  power  profile  required  to  give  the  constant  wall 
temperature  is  then  calculated  along  with  the  distribution  of 
the  coolant  temperature.  The  power  density  curve  which  looks 
like  a  negative  exponential  was  calculated  using  an  average  heat 
transfer  coefficient,  while  the  second  curve  was  obtained  using 
the  heat  transfer  coefficient  based  on  film  properties  and  de¬ 
pendent  on  the  local  surface  temperature  as  well  as  the  fluid 
properties.  The  second  more  accurate  power  profile  does  not 
rise  sharply  at  the  inlet  because  the  heat  transfer  at  high 
ratios  of  surface  to  bulk  fluid  temperature  is  not  simply  pro¬ 
portional  to  the  temperature  differences  as  one  might  expect. 
These  results  clearly  show  the  necessity  of  detailed  calculations 
rather  than  simple  analytical  solutions  for  the  determination  of 
the  local  properties  in  the  reactor. 

The  detailed  calculations  for  the  temperature,  pressure, 
and  power  density  distributions  involve  trial  and  error  solutions 
at  each  iteration  along  the  channel  length.  The  calculation  pro¬ 
cedure  was  developed  for  digital  machine  calculations  as  a  large 
number  of  these  solutions  are  required  to  find  the  limiting  per- 
formance  characteristics  of  the  reactor.  The  analysis  used  for 
this  flow  is  similar  to  the  generalized  one- dimensional  continu¬ 
ous  flow  analysis  using  influence  coefficients  as  developed  by 
Shapiro  (24). 
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FIG.  4-8:  HYDROGEN  STAGNATION  TEMPERATURE  AND  RELATIVE 
POWER  DENSITY  VS  NON-DIMENSIONAL  REACTOR 
LENGTH  FOR  A  CONSTANT  COOLANT  CHANNEL  SURFACE 
TEMPERATURE 
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RELATIVE  POWER  DENSITY 


The  analysis  is  restricted  to  the  simultaneous  external 
effects  of  heat  transfer  and  wall  friction,  but  it  is  general¬ 
ized  in  that  it  includes  the  internal  effects  of  chemical  re¬ 
actions  and  changes  in  molecular  weight  and  specific  heat  due 
to  dissociation.  The  basic  assumptions  are  as  follows: 

I 

(1)  The  flow  is  one-dimensional  and  steady. 

(2)  Changes  in  stream  properties  are  continuous. 

(3)  The  cross  sectional  area  for  flow  is  constant. 

(k)  The  mass  flow  rate  is  constant. 

(5)  The  gas  mixture  is  in  thermodynamic  equilib¬ 

rium. 

The  five  basic  equations  governing  the  flow  and  the  con¬ 
dition  of  the  fluid  are  expressed  for  a  differential  length 
of  the  coolant  channel  as  the  control  volume.  The  equation  of 
state  of  the  fluid  can  be  expressed  as 

p  =  ZpRT/W  •  (4-2) 

The  continuity  equation  is 

w  =  pVA^  (^-3) 

The  Mach  number  is  the  ratio  of  the  local  velocity  to  the  speed 
of  sound.  Employing  the  relation  between  the  temperature  and 
the  speed  of  sound  the  expression  for  Mach  number  is 

M^  =  /  (7RT/W)  (4-4) 

The  energy  equation  for  a  differential  element  is 

wdQ  -  wdW^  =  w(dH  +  d|-  )  (4-5) 
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The  momentum  equation  is 


-A^dp  -  T^dAg  =  wdV 


(4-6) 


The  wall  shear  stress  can  be  expressed  in  terms  of  tdie  friction 


factor  as 


T  =  f 

W  2 


(4-7) 


The  cross  sectional  area  A^  and  the  heat  transfer  area  dAg 


are  related  to  the  hydraulic  diameter  so  tdiat 

ka 

a  = 


(4-8) 


Using  Eqs.  4-3,  4-7  and  4-8  the  momentum  equation  can 


be  written  as 


f  ^  ^  ^  =  pVdV 


Noting  with  tlie  use  of  Eqs.  4-2  and  4-3  that 
pV^  =  pyM^ 


(4-9) 


(4-10) 


Eq.  4-9  can  be  rewritten  as 


dp  dx  dV^  _  _ 

F  iz"  ^^■3"*‘2z"  7;r  -  ^ 


(4-11) 


The  enthalpy  change  in  the  energy  equation  can  be  expressed  in 


terms  of  pressure  and  temperature  changes  as 
dH  =(||)^dT 


(4-12) 


The  partial  derivative  with  respect  to  temperature  is  just  the 
specific  heat,  and  the  derivative  with  respect  to  pressure,  as 


shown  in  Appendix  A,  is 
.  an  N  ZRT 

W 


(4-13) 


-43- 


Using  these  expressions  for  the  enthalpy  derivatives  and  noting 
tdiat  the  work  term  dW  is  zero  for  the  case  under  considera- 
tion  the  energy  equation  can  be  written 


dQ  =  dT  +  ZR  f  1  -  T  .Sv.  1  ^  d' 

c  T  f  c  W  V  P  2c  T 

p  PL  pJ  PV 


dV^ 

(4-14) 


Taking  logarithms  of  the  equation  of  state  (4-2)  gives 
lnp  =  lnZ  +  lnp  +  lnR+lnT  -  InW  (4-15) 
Then  taking  the  differential  of  each  side  of  Eq.  4-15 


iE  -  ^  ^  ^  dW 

p  “  Z"  p  T  W" 

Similar  operations  on  Eqs.  (4-3)  and  (4-4)  result  in 


(4-16) 


0  = 

P 

dV 

V 

(4-17) 

and 

dM^ 

dv" 

,  dW 

dy 

dT 

ft 

#1  s  A  \ 

'  W 

7 

(4-18) 

Considering  W,  y 

,  and  Z 

as  functions  of  temperature  and 

pressure 

it  can  be 

!  shown 

that 

dW 

W 

T 

~  W 

P 

dT  . 
T 

2 

W 

p 

(4-19) 

dy 

7 

=  1 

7 

T 

2 

7 

0, 

p 

(4-20) 

T  2  ^Bp^^  p 
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(4-21) 


T  fSW  \ 

The  value  of  ^  j  and  the  other  partial  derivatives  with 

P 

respect  to  temperature  and  pressure  can  be  determined  in  the 
hydrogen  properties  subroutine. 

Eqs.  4-11,  4-l4  and  4-l6  through  4-21  are  eight  algebraic 
equations  with  ten  variables  which  are  differentials.  They  are 

dM^  ,  dV^  ,  ^  ,  dQ  ,  and  4f  ^  .  Eight 
P  P  T  W  Z  ^2  7  CpT  d 


of  the  variables  can  be  taken  as  dependent  and  tv;o  as  independent. 

dx  . 

^  ana 
P^ 

After  a  considerable  amoiint  of  algebra,  the  following  expression 

dM^ 


The  variables  taken  as  being  independent  are  and  4f  ■g— 


can  be  obtained  for 

.2 


— ?  • 
M 


M' 


=  J 


P  L 


B  +  (1  +  T|7M  D)  J  4f 


dx 


(4-22) 


where  the  quantities  B,  D,  J,  and  tj,  presented  in  Appendix  B, 
involve  the  derivatives  of  the  fluid  properties. 


dQ 


-dx 


The  two  quantities  and  I*®  related  to  each 

^P 

other  through  the  correlations  for  the  heat  transfer  coefficient 

and  the  friction  factor.  The  heat  transfer  correlation  is 

0.8  .0.4 


^  =  0.021 

^f 


pf 


Vdi 


'pf  f| 


(4-23) 


The  correlation  for  the  friction  factor,  Eq.  4-1,  can  be  written 

.0.2 


f  =  0.046 


iPVd 


(4-24) 
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The  local  heat  transfer  rate  divided  by  the  cross  sectional  area 


^  =  h  — ^  (T  -  T  )  =  — 

Af  Af  A, 


(U-25) 


Eqs.  4-23  through  4-25  can  be  combined  and  with  the  use  of  Eqs, 
4-3  and  4-8  the  following  expression  results: 

m  ..  0.8  . ..  0.2  _  0.6 


0.046 

0.021 


^  (4-26) 

^f  '^pf  %^AV 


where  the  subscript  AV  implies  evaluation  at  the  static  tempera¬ 
ture  averaged  along  the  direction  of  flow.  For  a  differential 
element  would  equal  T,  but  for  a  finite  element  as  used  in 
the  calculations  the  temperature  is  averaged.  Then  the  dx  and 
dQ  become  finite  differences  Ax  and  AQ. 

With  the  relation  between  4f^  and  it  is  now  possible 

P 

to  find  the  change  in  Mach  number  and  the  other  fluid  properties 

with  the  specification  of  only  one  independent  variable  if  the 

wall  temperature  is  specified  in  Eq.  4-26.  For  the  case  of  a 

constant  wall  temperature  along  the  channel  this  is  the  procedure 

which  is  used.  In  the  program  as  it  was  developed  a  temperature 

dx. 

change  is  specified  to  fix  the  value  of  dQ.  The  value  of 


is  then  computed  and  the  change  in  Mach  number  determined  from 
Eq.  4-22 . 

If  the  local  wall  temperature  is  not  specified  the  shape  of 

dx 

the  power  distribution  must  be  and  the  value  of  4f-^  is  deter- 
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mined  in  another  manner.  Eq.  h-26  is  then  used  to  determine 
the  local  wall  temperature.  When  the  shape  of  the  power  dis¬ 
tribution  is  specified,  either  in  analytical  or  tabular  form, 
the  ratio  of  the  heat  transferred  to  the  propellant  from  the 
end  of  the  reactor  to  a  given  point  along  the  length  to  the 
total  heat  transferred  Q/Q^.  is  solely  a  function  of  the 
nondimens ional  length  x/L.  The  total  amount  of  heat  trans¬ 
ferred  to  the  propellant  is  determined  from  the  fluid  tempera¬ 
tures  at  the  reactor  inlet  and  exit.  The  heat  transferred  up 


to  any  local  value  is  determined  from  that  local  fluid  tempera¬ 
ture  and  the  temperature  at  the  end  of  the  reactor.  The  ratio 


Q/Q/j,  is  then  used  to  find  the  local  value  of  x/L.  The  differ¬ 
ence  between  this  value  of  x/L  and  that  of  the  last  step  is  tiien 


Ax/L.  The  local  friction  factor  f  can  be  determined  from  Eq. 


4-24.  The  channel  diameter  d  and  length  L  are  specified^  so 
the  value  of  4f^  is  then  the  product  of  these  known'  quantities. 


(4-27) 


With  this  value  and  the  aQ  calculated  from  the , specified  tempera 


ture  change  the  change  of  Mach  number  is  calculated  using  Eq.  4-22 
2 

As  soon  as  is  determined  less  complicated  expressions  can 


be  obtained  for  the  changes  in  pressure  and  temperature. 


(4-28) 
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and 


^  = 
T 


dM^ 


P 


(h-29) 


B 


The  quantities  A  and  F  are  similar  to  B  and  D  in 
Eq.  k-Z2  in  that  they  contain  thermodynamic  property  deriva¬ 
tives.  These  coefficients  are  therefore  dependent  on  the  fluid 
temperature  and  pressure.  The  method  of  solution  involves  a 
trial  and  error  procedure  because  estimates  of  the  local  temper¬ 
ature  must  be  made  to  calculate  the  coefficients.  When  the 
pressure  and  temperature  changes  are  calculated  from  Eqs.  ^4-28 
and  4-29  the  initial  estimates  must  be  checked  and  corrected 
if  they  were  in  error. 

The  local  coolant  channel  surface  temperature  is  determined 
by  trial  and  error  from  Eq.  4-26  when  the  power  distribution  is 
specified.  The  solution  is  a  trial  and  error  procedure  because 
the  fluid  properties  are  functions  of  the  film  temperature 
which  depends  on  the  wall  temperature.  The  entire  procedure  is 
presented  in  detail  in  Appendix  D.  The  description  given  above 
presents  the  main  ideas  but  does  not  include  all  the  trial  and 
error  loops  which  are  necessary.  The  fluid  enthalpy  is  depend¬ 
ent  on  the  static  pressure  as  well  as  the  temperature  which 
means  the  amount  of  heat  transferred  is  a  function  of  the  pres¬ 
sure.  This  results  in  a  trial  and  error  calculation  for  the  cal¬ 
culation  of  aQ  for  each  step.  Another  trial  and  error  solution 
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is  necessary  for  the  calculation  of  the  static  fluid  properties. 

The  results  of  these  caluclations  are  tabular  values  of 
the  axial  distributions  of  the  fluid  static  and  stagnation 
temperatures,  fluid  static  and  stagnation  pressures,  Mach  num¬ 
ber,  coolant  channel  surface  temperature,  and  other  conditions 
of  the  flow  which  may  be  of  interest.  The  complete  list  is 
given  in  Appendix  D  with  the  sample  solution.  A  typical  plot 
of  the  most  significant  parameters  is  shown  in  Fig.  4-9.  The 
hydrogen  stagnation  temperature  at  the  reactor  exit  is  4668°R 
and  the  stagnation  pressure  is  800  psia  while  the  temperature 

at  the  reactor  inlet  is  400°R.  The  mass  flow  rate  per  unit 

2 

area  is  O.858  Ib/sec-in  .  These  results  are  for  a  chopped  sine 
power  distribution  where  the  local  heat  flux  is  of  ldie  form: 

sin  [CQ^  (4130) 

and  CQ^  is  equal  to  2.5. 

The  value  of  the  constant  determines  where  the  sine- 

wave  is  chopped  off  at  the  inlet  end  of  the  reactor.  If  - 

is  equal  to  it  the  sine  wave  would  not  be  chopped  at  all  while 
if  is  equal  to  it/2  the  maximum  heat  flux  would  occur  at 
the  reactor  inlet.  Fig.  4-10  shows  power  distribution  for  two 
values  of  along  with  the  power  distribution  determined 

from  reactor  physics  calculations  for  a  core  reflected  on  one 
end  with  3  centimeters  of  beryllium.  Values  of  in  the  range 


T.  TEMPERATURE  (“R) 


FI6.4-9:  HYDROGEN  STAGNATION  TEMPERATURE,  STATIC 
TEMPERATURE,  STAGNATION  PRESSURE , STATIC 
PRESSURE,  AND  MACH  NUMBER  VS  NON- 
DIMENSIONAL  REACTOR  LENGTH  FOR  CHOPPED 
SINE  POWER  DISTRIBUTION 
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PD/PO||ax.  relative  power  density 


FIG.  4- 10;  RELATIVE  P0V7ER  DENSITY  VS  NON-DIMENSIONAL 
REACTOR  LENGTH  FOR  CHOPPED  SINE  POWER 
DISTRIBUTIONS  AND  ACTUAL  POWER  DISTRIBUTION 
IN  A  REFLECTED  REACTOR 
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of  2.5  to  2.75  produce  chopped  sine  profiles  which  are  reasona¬ 
ble  approximations  to  the  real  distributions. 

The  results  in  Fig.  i»-9  were  calculated  using  the  program 
presented  in  Appendix  D.  The  number  of  steps  between  the  reac¬ 
tor  inlet  and  exit  where  calculations  are  performed  was  varied 
for  a  typical  set  of  data.  The  effect  on  the  results  in  going 
from  50  to  200  calculational  steps  was  less  than  one  per  cent. 

A  run  was  also  made  using  100  steps  and  a  plot  of  any  result 
versus  the  number  of  steps  does  not  produce  an  asymptotic  value 
that  one  would  reach  by  going  to  an  infinite  number  of  steps. 

This  is  because  the  accuracy  demanded  of  the  trial  and  error 
loops  in  the  program  allows  a  small  random  variation  in  the 
results  that  is  as  large  as  the  difference  that  is  obtained  in 
going  from  50  to  200  steps.  The  conclusion  reached  from  this 
is  that  50  calculation  steps  are  sufficient  and  that  using  more 
would  be  a  waste  of  time  as  the  time  required  for  a  run  is  al¬ 
most  directly  proportional  to  the  number  of  steps. 

It  is  also  possible  to  use  different  hydrogen  properties 
with  the  program.  The  hydrogen  properties  can  be  calculated 
excluding  the  effects  of  dissociation  and/or  compressibility 
factor  xinequal  to  one.  This  is  explained  in  detail  in  Appendix  A 
where  the  equations  are  developed.  If  both  the  effects  of  dis¬ 
sociation  and  compressibility  factor  unequal  to  one  are  excluded 


-52- 


the  difference  in  the  heat  transfer  and  pressure  drop  results 
may  be  a  few  per  cent.  The  change  in  the  calculated  stagnation 
pressure  at  the  reactor  inlet  for  a  sample  run  was  25  psia  out 
of  1100  or  a  change  of  2. 3^/0  .  The  use  of  the  more  accurate 
hydrogen  properties  does  not  require  a  noticeable  increase  in 
the  length  of  time  required  for  a  run,  consequently  these 
properties  were  used  for  all  further  runs. 

Along  with  the  above  results  for  the  heat  flux  and  temper¬ 
ature  distributions  the  specification  of  the  void  fraction  of 
the  reactor  and  the  geometry  of  the  coolant  channel  distribu¬ 
tion  is  sufficient  to  make  the  calculation  of  the  local  power 
density  and  maximum  temperature  in  reactor  core  possible.  At 
any  axial  position  the  power  generation  is  assumed  to  be  uni¬ 
form  in  the  solid  fraction  of  the  core.  The  local  ix)wer  density 
is  then  the  local  heat  flux  per  unit  length  divided  by  the  area 
over  which  it  is  generated: 

Expressed  in  terms  of  known  quantities  this  is 


PD  = 


V 

L 


w  AQ 


(4-32) 


The  geometry  used  to  calculate  the  maximum  core  temperature 
is  a  spacing  of  coolant  channels  on  the  vertices  of  equilateral 
triangles.  An  approximate  solution  for  tiiis  shape  with  uniform 
heat  generation  has  been  found  and  is  available  in  tiie  literature 


(25).  No  exact  solution  can  be  found  as  the  boundary  conditions 
cannot  be  simultaneously  satisfied  in  both  circular  and  rectangu 
lar  coordinates.  The  temperature  difference  between  the  maximum 
in  the  solid  and  that  at  the  surface  of  the  coolant  channel  is 
proportional  to  the  local  power  density  and  the  square  of  the 
coolant  channel  diameter.  The  exact  form  of  the  equation  show- 
ing  the  dependence  on  the  reactor  void  fraction  is  presented 
in  Appendix  D. 

C.  Stress  Analysis 

The  actual  design  of  fuel  elements  for  the  reactor  core 
should  be  related  to  temperature  and  stress  considerations, 
the  method  of  supporting  the  core,  possible  vibration  problems, 
and  to  manufacturing  tolerances.  It  is  impossible  to  determine 
analytically  the  best  design  taking  all  the  above  considerations 
into  effect.  As  it  is  not  the  purpose  of  this  work  to  design 
fuel  elements  or  reactor  cores,  a  fairly  simple  model  was  used 
to  make  stress  calculations.  If  it  becomes  desirable  a  differ¬ 
ent  model  or  models  could  be  used.  Tliis  would  only  affect  the 
numerical  values  used  in  the  rest  of  the  analysis  and  not  the 
general  method. 

The  model  used  to  make  stress  calculations  is  an  annular 
element  witii  iiniform  heat  generation  in  the  solid.  The  combin¬ 
ation  of  thermal  stresses  and  stresses  due  to  applied  loads 
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f 

i 

can  be  solved  analytically  for  this  case.  Some  work  has  been  ' 

done  on  the  calculation  of  stresses  due  to  applied  loads  in 
plates  or  cylinders  with  a  number  of  circular  holes  (26,. 2?). 

The  temperature  distribution  has  been  obtained  for  a  heat  gen¬ 
erating  cylinder  with  a  ring  of  holes  for  coolant  flow  (28). 

The  extension  of  the  stress  calculations  to  include  the  thermal 
stresses  for  these  geometries  is  a  formidable  task  which  should 
be  accomplished  but  is  not  undertaken  in  this  study. 

In  the  annular  element  used  as  a  model  for  stress  calcu¬ 
lations  the  inside  diameter  is  the  same  as  the  coolant  channel 
diameter  in  the  core.  The  void  fraction  free  for  coolant  flow 

is  also  the  same  for  the  annulus  as  it  is  for  the  core.  If  the 

\  < 

actual  geometry  in  the  core  is  a  spacing  of  coolant  channel 
holes  on  the  vertices  of  equilateral  triangles,  the  distance 
between  holes  or  the  web  thickness  is  of  the  same  order  of  mag¬ 
nitude  as  the  hole  diameter.  For  a  void  fraction  of  0.3  and  a 
channel  diameter  of  0.1  inches  the  web  thickness  is  0.07^  inches. 

The  outside  diameter  of  an  annulus  with  a  void  fraction  of  0.3 
and  an  inside  diameter  of  0.1  inches  is  O.183  inches.  This 
means  the  distance  between  holes  for  stacked  annuli  is  O.O83 
inches  which  is  about  10°/^  greater  than  it  is  for  the  holes 
spaced  on  the  vertices  of  equilaterial  triangles. 

In  order  to  determine  when  the  reactor  or  the  model  used 
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is  stress  limited  a  failure  criterion  must  be  employed  and  a 
limiting  condition  set  for  the  material.  Graphite  is  a  brit¬ 
tle  material  and  ideally  the  failure  criterion  applied  should 
be  valid  for  brittle  fracture.  Unfortunately,  the  understand¬ 
ing  of  the  fundamentals  of  brittle  fracture  is  not  so  highly 
developed  that  the  theory  is  easily  applicable  to  engineering 
problems.  There  are  t^vo  theories  for  the  propagation  of  cracks 
causing  failure  in  brittle  materials.  One  theory  first  formu¬ 
lated  by  Griffith  is  deterministic  while  the  second  proposed 
by  Weibull  is  probabilistic  in  nature  (29).  Both  theories  can 
account  for  some  but  not  all  of  the  aspects  of  brittle  fracture. 
They  both  involve  arbitrary  constants  which  must  be  determined 
empirically  for  the  material  under  consideration.  The  probabi¬ 
listic  theory  has  been  applied  to  some  engineering  problems 
and  related  to  a  factor  of  safety  with  regard  to  a  single  stress 
value  like  a  yield  stress  (30,  31)* 

The  failure  criterion  used  in  this  analysis  is  the  maximum 
shear  criterion.  The  maximum  principal  stress  would  be  the 
failure  criterion  for  an  ideal  brittle  material  (32).  For  tdie 
model  used  in  this  analysis  the  maximum  shear  criterion  is  used 
because  it  is  more  conservative  than  the  maximum  principal 
stress  criterion. 

For  the  annular  model  the  stresses  were  calculated  for  two 
different  sets  of  boundary  conditions.  In  both  cases  the  radial 
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stress  at  the  inner  radius  was  assumed  to  be  equal  to  the  nega¬ 
tive  value  of  the  local  coolant  pressure,  and  the  whole  element 
is  considered  to  be  free  to  expand  in  the  axial  direction  so 
the  problem  is  one  of  plain  strain.  The  principal  stresses 
are  then  in  the  radial,  tangential,  and  axial  directions.  The 
two  different  boundary  conditions  considered  are  those  on  the 
outer  radius  of  the  annulus.  If  the  annulus  is  considered  as 
a  unit  cell  in  the  core  so  that  it  is  like  all  other  cells  at 
the  same  axial  position,  the  outer  boundary  must  be  considered 
adiabatic  to  insure  that  the  temperature  gradient  be  zero  at 
the  outside  radius.  Similarly  there  is  no  reason  to  have  a  dis¬ 
continuity  in  the  gradient  of  the  radial  stress  at  this  position, 
in  which  case  the  second  boundary  condition  on  the  stress  should 
be  that  the  derivative  of  the  radial  stress  with  respect  to 
radius  is  zero  at  the  outer  boundary.  The  other  possibility  is 
that  the  radial  stress  be  set  equal  to  zero  or  the  negative  of 
the  fluid  pressure  at  this  boundary.  The  latter  condition 
would  result  in  a  discontinuity  in  the  gradient  of  the  radial 
stress  if  two  annuli  were  placed  side  by  side. 

The  basic  equations  for  the  stresses  in  a  circular  cylinder 
with  a  nonuniform  temperature  distribution  and  no  axial  displace¬ 
ment  are  (33) 
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If  a  uniform  axial  stress  0_ 


C^  is  superposed,  can  be 


chosen  such  that  the  resultant  force  on  the  ends  is  zero. 

This  means  that  the  axial  displacement  will  be  uniform  but  un¬ 
equal  to  zero.  The  equations  for  the  radial  and  tangential 
stresses  remain  unchanged. 

The  temperature  distribution  in  an  annular  element  witdi 
uniform  heat  generation  and  an  adiabatic  outside  surface  is 
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(4-36) 


where  T.,  is  the  temperature  at  r.  and  W.  is  the  heat  generation 
rate.  This  expression  is  developed  in  Appendix  B  along  with 
all  the  expressions  for  the  stresses.  With  this  temperature 
distribution  and  a  set  of  boundary  conditions  for  the  radial 
stress,  the  constants  in  Eqs.  4-33  through  4-35  can  be  evaluated 
and  the  equations  for  the  stresses  obtained  in  terms  of  known 
quantities. 

For  the  boundary  conditions 


a  =  -p  at  r  =  r. 
r  1 


(4-37) 


and 
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0  at  r 


*4-38) 


In  the  above  expressions  the  void  fraction  v  has  been  inserted 


2 

for  •  Ths  value  of  was  determined  using  such 

that  the  resultant  force  on  the  ends  of  the  element  is  zero. 
Similar  equations  result  for  the  other  set  of  boundary  conditions 
where 
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<^1.  =  -P  at  r  =  (4-42) 

dcy 

-3?  =  °  ^  "  ^0  (^-^3) 


The  value  of  a„  is  given  by  Eq.  4-4l  as  it  is  for  the  otiier 

Zi  ■  ' 

set  of  boundary  conditions. 


The  radial  distribution  of  the  three  principal  stresses  is 
shown  in  Figs.  4-11  and  4-12  for  the  two  different  sets  of  bound¬ 
ary  conditions.  The  power  density  is  100  megawatts  per  cubic 
foot,  and  the  coolant  pressure  is  500  psia  for  botii  cases.  The 
inner  diameter  is  0.100  inches  and  the  outer  diameter  is  O.I82 
inches  corresponding  to  a  void  fraction  of  0.3.  The  shapes  of 
these  curves  are  typical  for  the  range  of  pressures’  and  power 
densities  of  interest  although  the  absolute  values  of  the  stresses 
will  change. 
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FIG.  4-11 :  DISTRIBUTE  OF  PRINCIPAL  STRESSES  IN 
AN  ANNULAR  ELEMENT  WITH  UNIFORM 
HEAT  GENERATION 
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FIG,  4-12:  DISTRIBUTION  OF  PRINCIPAL  STRESSES  IN  AN 
ANNULAR  ELEMENT  WITH  UNIFORM  HEAT 
GENERATION 


It  can  really  be  seen  that  the  worst  stress  conditions  oc¬ 
cur  at  the  inside  radius  of  the  element.  This  is  true  for  the 
maximum  shear  stress,  maximum  stress,  or  any  other  common  fail¬ 
ure  criterion.  It  is  also  true  for  different  values  of  power 
density  and  pressure.  This  simplifies  the  determination  of 
the  maximum  stress  in  an  element  as  the  stresses  need  only  to 
be  calculated  at  the  inside  radius  rather  than  at  a  number  of 
different  radii.  It  also  means  that  the  equations  for  calculat¬ 
ing  the  stresses  can  be  simplified  as  is  shown  in  Appendix  C 
where  they  are  developed.  For  the  case  where  the  gradient  of 
the  radial  stress  is  zero  at  the  outer  boundary  the  equations 
for  the  stresses  at  the  inner  radius  are 


The  equations  for  a  and  a  with  the  other  set  of  boundary 
conditions  can  be  reduced  in  a  similar  fashion.  The  expression 
for  is  given  by  Eq.  1^-48.  The  heat  generation  rate  is 

equal  to  the  local  power  density  PD  divided  by  the  solid  frac- 
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tion  of  the  core  and  appropriate  conversion  factors. 

In  all  further  calculations  the  stresses  are  calculated 
for  the  case  where  the  gradient  of  the  radial  stress  is  equal  to 
zero  at  the  outer  boundary  of  the  annulus.  This  set  of  boundary 
conditions  is  considered  to  be  more  realistic  for  the  model  as 
it  is  considered  a  unit  cell  of  the  reactor  core.  The  form  of 
the  equations  used  in  the  computer  program  is  presented  in 
Appendix  D.  The  stresses  are  calculated  at  each  step  along  the 
core  along  with  the  temperatures  and  other  fluid  properties. 

The  difference  between  the  maximum  and  minimum  principle  stres¬ 
ses  yields  the  maximum  shear  stress  at  that  point. 

The  distribution  of  the  maximum  shear  stress  is  shown  in 
Fig  U-I3  along  with  the  distributions  of  the  wall  temperature, 
maximum  core  temperature,  coolant  stagnation  temperature,  and 
pov/er  density.  The  independent  parameters  used  to  calculate' 
these  results  are  the  same  as  those  used  to  obtain  the  coolant 
property  distributions  presented  in  Fig.  For  the  case 

shown  the  maximum  shear  stress  occurs  where  the  local  power  densi¬ 
ty  is  maximum.  This  will  be  true  as  long  as  the  maximum  shear 
stress  is  obtained  from  the  tangential  and  radial  stresses.  The 
difference  between  these  two  stresses  is  independent  of  the 
fluid  pressure  and  proportional  to  the  local  heat  generation  rate 
as  can  be  seen  from  Eqs.  4-46  and  4-4?. 


-64- 


TEMPERATURE  CR)  AND  STRESS  (PSD 


X/L,  REACTOR  LENCSTH 


FIG.  4-13:  HYDROGEN  TEMPERATURE,  COOLANT  CHANNEL 
SURFACE  TEMPERATURE,  SOLID  CENTERLINE 
TEMPERATURE,  SHEAR  STRESS  AT  COOLANT 
CHANNEL  SURFACE,  AND  LOCAL  POWER 
DENSITY  IN  REACTOR  VS  NON-DIMENSIONAL 
REACTOR  LENGTH  FOR  CHOPPED  SINE 
POWER  DISTRIBUTION. 
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POWER  DENSITY  (MW/FT®) 


It  was  initially  thought  that  a  power  density  distribution 
corresponding  to  a  constant  wall  temperature  would  be  desirable. 
This  would  be  particularly  true  if  the  reactor  was  surface 
temperature  limited.  A  number  of  constant  wall  temperature  runs 
were  calculated  and  the  distributions  of  maximum  solid  tempera¬ 
ture  and  stress  determined.  An  example  of  the  results  is  shown 
in  Figs.  4-l4  and  4-15*  The  coolant  properties  are  shown  in 
the  first  figure  while  the  maximum  solid  temperature  and  the 
stress  distributions  are  shown  in  the  second.  The  hydrogen 
stagnation  temperature  at  the  reactor  exit  is  4600°R  and  the 

stagnation  pressure  is  800  psia.  The  flow  rate  per  unit  area 

2 

is  0.800  Ib/sec-in  and  the  wall  temperature  is  constant  at 
46ll®R.  The  maximum  shear  stress  for  these  conditions  is  higher 
than  t±ie  graphite  material  can  tolerate.  If  the  results  in 
Fig.  4-15  are  compared  with  those  in  Fig.  4-13  one  can  see  that 
both  the  maximum  stress  and  the  maximum  solid  temperature  are 
higher  for  the  constant  wall  temperature  case  even  though  the 
hydrogen  stagnation  temperature  at  the  exit  and  the  flow  rate 
per  unit  area  are  less  than  they  are  for  the  case  with  a  chopped 
sine  power  distribution.  This  occurs  primarily  because  the  shape 
of  tlie  power  distribution  required  to  obtain  a  constant  wall 
temperature  is  such  that  a  higher  local  power  density  exists 
even  though  the  total  power  represented  by  the  area  under  the 
curve  is  less  than  for  the  other  case.  The  coolant  channel 
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TEMPERATURE  (^R) 


FIG.  4-14:  HYI^OGEN  STAGNATION  TEMPERATURE,  STATIC  TEMP¬ 
ERATURE,  STAGNATION  PRESSURE.  STATIC  mESSURE, 
AND  MACH  NUMBER  VS  NON- DIMENSIONAL  REACTOR 
LENGTH  FOR  CONSTANT  WALL  TEMPERATURE 
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X/L,  REACTOR  LENGTH 

FIG.  4-15:  HYDROGEN  TEMPERATURE ,  COOLANT  CHANNEL 
SURFACE  TEMPERATURE,  SOLID  CENTERLINE 
TEMPERATURE,  SHEAR  STRESS  AT  COOLANT 
CHANNEL  SURFACE,  AND  LOCAL  POWER  DENSITY 
IN  REACTOR  VS  NON-DIMENSIONAL  REACTOR 
LENGTH  FOR  CONSTANT  WALL  TEMPERATURE 


POWER  DENSITY  (MW/FT 


diameter  for  the  constant  wall  temperature  case  is  O.I06  inches 
rather  than  0.100  inches  as  for  the  chopped  sine  power  distri¬ 
bution  case  but  this  has  a  relatively  minor  effect  on  the  stress 
compared  to  the  local  power  density  effect  mentioned  above. 

These  results  show  that  the  power  distribution  corresponding  to 
a  constant  wall  temperature  is  not  as  desirable  as  the  chopped 
sine  power  distribution.  This  Was  found  to  be  true  for  any  of 
a  large  number  of  constant  wall  temperature  cases  that  were  run. 
It  may  be  desirable  to  shape  the  power  distribution  in  some  other 
way  so  that  a  higher  exit  gas  temperature  of  higher  flow  rate 
per  unit  area  can  be  obtained  without  increasing  the  maximum 
temperatures  or  stresses  in  the  core .  This  has  not  been  done 
in  this  study  but  could  be  the  subject  of  some  futher  work. 

D.  Limiting  Performance  of  Reactor 

The  procedure  outlined  in  the  last  two  sections  of  this 
chapter  permits  the  determination  of  the  coolant  properties, 
reactor  surface  and  maximum  solid  temperatures,  power  density, 
and  maximum  stress  distributions  along  the  axis  of  the  core. 

The  rate  of  local  power  generation  in  the  core  may  be  fixed  by 
one  of  a  number  of  possible  factors.  These  include: 

1.  A  surface  temperature  above  which  excessive 
chemical  reaction  between  the  coolant  and  the  channel  surface 
material  may  take  place. 
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2,  A  temperature  in  the  solid  part  of  the  core 
above  which  the  reactor  material  does  not  have  satisfactory 
mechanical  strength. 

3.  Stresses  in  the  core  material  that  may  cause 
fracture  or  excessive  strains  and  dimensional  changes. 

Graphite  will  react  with  hydrogen  at  high  temperatures,  but 
this  deficiency  can  be  overcome  by  coating  the  coolant  channels 
(3^^35)-  The  mechanical  strength  of  graphite  increases  with 
temperature  up  to  values  near  5000°R  and  then  drops  off  rapidly 
(36).  The  actual  values  of  the  tensile  strength  for  graphite 
have  some  variation  because  it  is  a  brittle  material  and  does 
not  have  a  well  defined  yield  point  as  ductile  materials  do. 

The  maximum  allowable  stress  for  graphite  that  is  used  in  this 
study  is  taken  from  a  curve  developed  at  Los  Alamos  for  design 
purposes  (36).  The  other  graphite  properties  required  for  tdie 
stress  calculations  are  taken  from  this  same  source.  The  lim¬ 
iting  values  used  for  the  three  factors  mentioned  above  are: 

1.  Coolant  channel  surface  temperature  no  grreater 

than  k800°R. 

2.  Temperature  in  the  solid  fraction  of  the  reactor 
core  no  greater  than  5000°R. 

3.  Maximum  shear  stress  no  greater  than  1200  psi. 

With  these  limitations  set  on  the  core  material  and  the 
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procedure  developed  to  calculate  the  conditions  in  the  reactor 
for  a  given  set  of  independent  parameters,  it  is  possible  to 
determine  the  upper  bounds  on  reactor  performance.  For  each 
run  with  a  given  set  of  variables  it  is  possible  to  determine 
the  distributions  of  wall  temperature,  maximum  solid  temperature, 
and  stress  as  was  shown  in  Fig.  li-13.  If  any  one  of  the  three 
limitations  is  exceeded  at  any  point  in  the  reactor  the  operat¬ 
ing  conditions  are  unsatisfactory  and  at  least  one  of  the  inde¬ 
pendent  parameters  must  be  changed  to  obtain  a  workable  system. 
The  procedure  used  to  determine  the  upper  performance  bounds 
is  as  follows. 

1.  A  particular  void  fraction  is  chosen  to  set 
the  reactor  length  and  radius. 

2.  A  particular  coolant  channel  diameter  is  chosen. 

3.  The  shape  of  the  power  distribution  is  fixed 
for  the  reactor. 

k.  The  hydrogen  stagnation  pressure  at  the  reactor 
exit  is  chosen. 

5.  The  hydrogen  stagnation  temperature  at  the  re¬ 
actor  exit  is  set  at  a  specific  value. 

6.  The  flow  rate  per  unit  area  through  the  reactor 
is  varied  in  finite  steps  and  the  reactor  characteristics  de¬ 
termined  for  each  different  condition. 


7 •  The  hydrogen  stagnation  temperature  is  changed 
and  step  6  is  repeated. 

When  these  results  are  obtained  the  maximum  stress,  wall 
temperature,  and  solid  temperature  are  plotted  versus  the  flow 
rate  per  unit  area  for  given  hydrogen  temperatures.  A  typical 
plot  for  the  maximum  stress  is  shown  in  Fig.  4-l6.  Only  the 
highest  stress  at  the  worst  axial  location  is  used  to  make  this 
plot.  Using  Fig.  4-l6  it  is  possible  to  determine  the  highest 
possible  flow  rate  per  unit  area  that  can  be  passed  through  the 
reactor  and  still  obtain  a  specific  hydrogen  stagnation  tempera¬ 
ture  without  exceeding  a  specified  stress  value.  If  at  tdie 

points  where  the  2a =  2400  psi  the  hydrogen  stagnation  temper- 

on 

ature  is  plotted  versus  -the  corresponding  flow  per  unit  area, 
the  solid  line  in  Fig.  4-17  is  obtained.  The  same  procedure 
using  plots  of  maximum  wall  temperature  and  maximum  centerline 
temperature  similar  to  Fig.  4-l6  yields  the  other  two  curves 
in  Fig.  4-17. 

For  the  graphite  material  considered  and  the  limitations 
imposed  the  maximum  solid  temperature  is  not  an  important 
limitation  because  either  of  the  other  two  limitations  is  reached 
first.  The  limiting  performance  of  the  reactor  occurs  along  the 
envelope  defined  by  the  wall  temperature  limitation  and  the  stress 
limitation.  The  envelope  in  Fig.  4-17  is  for  one  reactor  size 
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RG.  4-16:  MAXIMUM  SHEAR  STRESS  VS  HYDROGEN  FLOW 
PER  UNIT  AREA  IN  REACTOR  CORE  WITH 
CHOPPED  SINE  POWER  DISTRIBUTION 
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FIG.  4 -17:  MAXIMUM  HYDROGEN  TEMPERATURE  AT  REACTOR 
EXIT  VS  FLOW  PER  UNIT  AREA  AS  DETERMINED 
BY  DIFFERENT  MATERIAL  LIMITATIONS 


with  one  coolant  channel  size  and  one  shape  of  the  power  distri¬ 
bution.  The  position  of  the  envelope  is  insensitive  to  pres¬ 
sure  in  that  its  position  does  not  change  when  the  hydrogen 
pressure  at  the  reactor  exit  is  changed  to  either  600  or  1000 
psia . 

The  effect  of  a  variation  in  coolant  channel  diameter  with 
other  conditions  held  constant  can  be  seen  in  Fig.  14--18.  For 
an  increase  in  coolant  channel  diameter  from  0.100  inches  to 
0.125  inches  the  most  significant  change  is  in  the  location  of 
the  stress  limiting  curve.  The  flow  rate  per  unit  area  must 
be  reduced  by  30°/o  or  more  in  order  to  obtain  the  same  hydro¬ 
gen  stagnation  temperature  at  the  reactor  exit.  The  effect  of 
changing  the  reactor  power  distribution  is  also  shown  in  Fig, 
4-18.  The  change  in  the  shape  of  tdie  chopped  sine  profile  when 

is  changed  from  2.5  to  2.75  was  shown  in  Fig.  4-10.  It  can 
be  seen  that  this  change  in  the  power  profile  has  only  a  small 
effect  on  the  position  of  the  limiting  performance  envelope  for 
the  reactor.  The  small  shift  of  the  point  of  maximum  .power  to¬ 
ward  the  exit  of  the  reactor  causes  the  stress  limitation  to 
occur  at  slightly  lower  flow  rates. 

The  effect  of  a  change  in  the  reactor  void  fraction  and 
consequently  the  reactor  size  is  shown  in  Fig.  4-19.  A  reduc¬ 
tion  in  the  void  fraction  from  0.3  to  0.2  has  approximately  the 
same  effect  as  increasing  the  coolant  channel  diameter  from 
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FlG.4-18;  MAXIMUM  HYDROGEN  TEMPERATURE  AT  REACTOR 
EXIT  VS  FLOW  RATE  PER  UNIT  AREA  THROUGH 
CORE  WITH  CHOPPED  SINE  POWER  DISTRIBUTION 
AS  DETERMINED  BY  MATERIAL  LIMITATIONS 
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FIG. 4-19:  MAXIMUM  HYDROGEN  TEMPERATURE  AT  REACTOR 

EXIT  VS  FLOW  RATE  PER  UNIT  AREA  THROUGH  CORE 
WITH  CHOPPED  SINE  POWER  DISTRIBUTION  AS 
DETERMINED  BY  MATERIAL  LIMITATIONS 


0.100  to  0.125  while  holding  the  void  fraction  constant  at  0.3. 
Increasing  the  reactor  void  fraction  to  0.4,  which  is  probably 
near  the  upper  limit  from  a  structural  point  of  view,  increases 
the  possible  flow  rate  per  unit  area  that  can  be  passed  through 
a  reactor  and  consequently  increases  the  maximum  power  level. 

As  the  reactor  void  fraction  is  increased  the  reactor  radius 
and  flow  area  increase  as  was  shown  in  Figs.  4-1  and  4-4.  Con¬ 
sequently  if  the  hydrogen  stagnation  temperature  was  plotted 
versus  the  actual  mass  flow  rate  rather  than  the  flow  per  unit 
area,  the  envelopes  would  be  spread  further  apart  exaggerating 
this  effect.  As  a  rough  approximation  tlie  reactor  power  is 
the  product  of  the  mass  flow  rate,  the  hydrogen  stagnation 
temperature  at  the  exit  and  some  average  specific  heat,  if  the 
inlet  temperature  is  neglected  with  respect  to  the  exit  tempera 
ture .  Consequently  any  increase  in  mass  flow  rate  or  flow  per 
unit  area  for  a  given  reactor  at  a  given  exit  temperature 
causes  a  proportional  increase  in  the  power  developed  by  the 
reactor. 
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CHAPTER  V 

SIMPLIFIED  REACTOR  ANALYSIS 


A.  Objective 

The  detailed  machine  calculations  presented  in  the  last 
section  of  Chapter  IV  show  that  over  a  certain  range  of  flow 
rates  the  wall  temperature  is  the  limiting  condition.  At  high¬ 
er  flow  rates  the  stresses  in  the  graphite  restrict  the  range 
of  possible  operation.  In  order  to  obtain  a  limiting  envelope 
of  hydrogen  exit  temperature  versus  flow  per  unit  area  a  large 
number  of  runs  must  be  calculated  and  the  results  cross  plotted 
to  find  the  independent  conditions  where  the  limiting  perform¬ 
ance  line  is.  It  is  then  desirable  to  calculate  a  number  of 
nans  for  conditions  along  this  line  to  check  the  accuracy  of 
the  cross  plotting  procedures.  Making  calculations  for  tdie  con¬ 
ditions  on  the  envelope  also  eliminates  the  requirement  of  cross 
plotting  other  results  of  interest  to  determine  their  values. 

It  is  desirable  to  obtain  a  simple  approximate  analytic  . 
method  for  predicting  the  conditions  where  the  reactor -is  wall 
temperature  or  stress  limited.  This  procedure  can  serve  two 
purposes.  For  the  initial  calculations  on  a  particular  system 
the  accuracy  required  on  limiting  performance  calculations  may 
be  such  that  approximate  analytic  calculations  will  be  sufficient. 
In  the  event  that  more  accurate  calculations  are  required  the 
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approximate  results  can  be  used  to  define  the  region  where  fur¬ 
ther  calculations  are  to  be  carried  out.  This  can  cut  down  the 
amount  of  work  and  machine  calculations  by  a  considerable  amount. 
The  amount  of  cross  plotting  required  to  determine  the  conditions 
of  limiting  performance  can  be  reduced  significantly  and  in  some 
cases  none  will  be  necessary.  The  analysis  developed  here  was 
used  for  this  latter  purpose  in  completing  the  results  of  tdie 
detailed  machine  calculations  presented  in  the  last  chapter. 

More  specifically  the  objective  of  the  simplified  analysis  is 
to  obtain  two  analytic  expressions,  one  to  relate  the  wall 
temperature  to  the  independent  variables  (Tgg  and  w/A^)  and 
the  second  to  relate  the  maximum  stress  to  the  same  variables. 

B.  Wall  Temperature  Limitation 

For  a  power  distribution  which  is  a  chopped  sine  wave  the 
local  heat  flux  per  unit  length  is  given  by  Eq.  k-30  which  is 
repeated  here 

^  sin  [cQ^  (1  -  ^)]  (5-1) 

By  integrating  over  the  coolant  channel  length  and  noting  that 

dq  =  wOj,  (5-2) 

where  is  the  total  enthalpy  rise  of  the  hydrogen,  the  constant 
can  be  evaluated.  The  resulting  expression  for  the  local  heat 
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flux  is 


^  ^ 

Hx  L 


1  -  cos  CQ^ 


[  “^1 


(1-^) 


(5-3) 


The  local  heat  flux  can  also  be  expressed  in  terms  of  the  wall 
temperature  and  a  heat  transfer  coefficient. 


CIA 

a5  -  h  3^  (1^  -  T)  -  h»d  (T^  -  T) 


(5-4) 


Eqs.  5-3  and  5-^  could  be  combined  to  obtain  an  expression  for 
the  wall  temperature  if  the  local  fluid  temperature  T  was 
known.  This  temperature  can  be  evaluated  approximately  by  ig¬ 
noring  the  dependence  of  the  enthalpy  on  pressure  and  assuming 
an  average  specific  heat  for  the  fluid.  Then 


(5-5) 


^  =  w  c  ^ 
dx  p  djT 


(5-6) 


Combining  this  with  Eq.  5-3  and  integrating  results  in  the  fol¬ 
lowing  expression: 


K  -  l>]  -  [  (5-7) 


=  ’’sRI  * 
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Eqs.  5-3>  3-^t  and  5-7  can  now  be  combined  to  produce  the  follow¬ 
ing  expression  for  the  wall  temperature. 


1  -  cos  CQ, 


(1-^) 


cos  + 


“^1  d 

sF'  mr 


■ 

in 

. 


(5-8) 


The  Stanton  number 


(5-9) 


is  an  average  value  incorporating  an  averaged  heat  transfer  co¬ 
efficient. 

If  Eq.  5-8  is  differentiated  with  respect  to  x  and  the 
differential  set  equal  to  zero,  tdie  following  relation  is  ob- . 
tained  for  the  position  where  the  wall  temperature  is  a  maximum. 


CQ  (1  -  ^)  = 
L 


(5-10) 


When  this  is  inserted  back  into  Eq.  5-8  and  the  inverse  tangent 
is  related  to  the  corresponding  inverse  sine  and  cosine  functions, 
an  equation  relating  the  maximum  wall  temperature  to  the  exit 
coolant  temperature  and  the  average  Stanton  number  results. 

After  some  simplification  it  can  be  reduced  to  the  following 
expression: 
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(5-11) 


If  the  Reynolds  analogy  is  used  to  relate  the  Stanton  number 
to  the  friction  factor  and  Eq.  4-1  is  employed  to  relate  the 
friction  factor  to  the  flow  per  unit  area,  the  desired  relation 
between  the  maximum  wall  temperature,  the  hydrogen  exit  temper¬ 
ature,  and  the  flow  per  unit  area  is  obtained. 


T  -  T 
SE  -^SRI 

T  -  T 
,  WM  SRI 


(5-12) 


For  a  particular  reactor  and  a  given  shape  of  tdie  power  distri¬ 
bution  numerical  values  can  be  inserted  for  L,  d,  and  CQ^.  A 
representative  value  can  be  used  for  the  viscosity  of  the  hydro¬ 
gen  coolant.  For  the  results  shown  in  this  chapter  a  value  of 
375  micropoise  corresponding  to  a  hydrogen  temperature  of  4500°R 
was  used.  The  hydrogen  temperature  at  the  reactor  inlet  is 
fixed  at  400°R. 

The  results  of  the  calculations  for  three  different  void 
fractions  are  shown  by  the  dashed  lines  in  Fig.  5-1*  As  with 
the  more  detailed  calculations  sho^^  by  the  solid  lines,  only 
the  parts  of  tiie  curves  which  are  nearly  horizontal  are  for  the 


-83- 


SE.  TEMPERATURE  CR) 


5000 


4500 


4000 


3500 


3000 


2500 


2000  L 
0 


Tw  «  4800  •  R 
Tc  *  5000  ®  R 
Z<r»H  t  2400  PS  I 
CQ,  *  2.5 
4  >  0.100  IN. 

Pfi  :  800  PSIA 
— —  MACHINE 

CALCULATIONS 
—  APPROX.  ANA¬ 
LYTICAL  RESULTS 


0.5  1.0  1.5  2.0 

W/Af  ,  FLOW  RATE  PER  UNIT  AREA  (LB/SEC-IN*) 


FIG.  5-1;  MAXIMUM  HYDROGEN  TEMPERATURE  AT  REACTOR 
EXIT  VS  FUdV  RATE  PER  UNIT  AREA  THROUGH 
CORE  WITH  CHOPPED  SINE  POWER  DISTRIBUTION 
AS  DETERMINED  BY  MATERAL  LIMITATIONS 
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wall  temperature  limitation.  The  second  part  of  the  curve  after 
the  discontinuity  in  slope  defines  the  stress  limited  region. 

The  analysis  for  this  is  shown  in  the  next  section  of  this  chap¬ 
ter.  The  simplified  analysis  for  the  wall  temperature  limitation 
predicts  the  hydrogen  exit  temperature  at  a  given  flow  rate  per 
unit  area  within  ipO°R  of  the  more  accurate  machine  calculations. 

It  is  on  the  conservative  side  in  that  it  predicts  lower  values 
of  Tgg  at  a  given  flow  per  unit  area  than  it  should.  If  one  does 
these  simple  calculations  before  doing  detailed  machine  calcula¬ 
tions,  the  range  of  hydrogen  fexit  temperatures  can  be  limited 
to  the  region  between  these  answers  and  the  maximum  allowable 
wall  temperature.  In  this  way  the  number  of  calculations  re¬ 
quired  to  obtain  the  detailed  solution  can  be  reduced  signifi¬ 
cantly. 

C.  Stress  Limitation  ' 

For  the  annular  stress  model  and  the  boundary  conditions 
used  in  the  detailed  calculations  the  three  principal  stresses 
at  the  inner  radius  are  given  by  Eqs.  4-46,  4-47,  and  4-48. 

These  can  be  3?ewritten  using  the  local  power  density  as  follows. 

(I  =  -p  (5-13) 

r 

2 

PDaEr. 

a  =  -p  +  - 

®  4(1  -  v)k 


(  -InVv) 


3  -  v] 

(5-15) 


The  maximum  shear  stress  is  determined  from  the  difference  of 
the  maximum  and  minimum  principal  stresses.  The  minimum  prin¬ 
cipal  stress  at  the  inner  radius  is  always  the  radial  stress 
which  is  compressive.  The  maximum  stress  can  be  either  the 
tangential  or  the  axial  stress. 

First  consider  the  case  where  the  maximum  principal  stress 
is  ag. 

Then 


(5-16) 


and  it  is  independent  of  tiie  fluid  pressure.  To  find  the  max¬ 
imum  stress  in  the  element  the  maximum  local  power  density  must 
be  obtained. 

From  the  expression  for  the  local  heat  flux  dq/dx  given 
by  Eq.  5-3,  it  can  be  determined  that  the  maximum  heat  flux  oc¬ 
curs  at 


X  T  It 

L  -/  ■  (5-17) 

and  its  value  is 
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(5-18) 

The  ratio  of  the  maximum  power  (density  to  the  average  is  also 
the  ratio  of  the  maximum  to  average  heat  flux  which  is 

(5-19) 


(5-20) 


(5-21) 

Using  the  approximate  expression  for  given  by  Eq.  5-5  and 

inserting  Eq.  5-21  into  5-16'  an  expression  relating  the  maximum 
shear  stress,  the  hydrogen  temperature  at  the  reactor  exit,  and 
the  flow  rate  per  unit  area  is  obtained. 

/•,  \  CQ-  » 

Oft  —  ^  ^  -  - _  -  T^fT  “T  ^  t  ^  00  \ 
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Solving  for  Tgg 
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The  average  power  density  is 
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By  inserting  the  known  variables  and  a  limiting  stress  in  this 


equation,  one  obtains  limiting  values  of  Tgg  for  given  values 
of  w/A^. 


If  the  axial  stress  is  greater  than  the  tangential  stress 
the  maximum  shear  stress  is  determined  from  the  difference  be¬ 
tween  (T„  and  a  . 
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This  expression  is  not  independent  of  the  fluid  pressure  and 
the  maximum  value  of  the  stress  does  not  necessarily  occur  where 
the  power  density  is  a  maximum.  However,  to  obtain  a  conserva¬ 
tive  estimate  the  maximum  power  can  be  used.  The  resulting  ex¬ 
pression  is  of  the  form 


where 
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For  the  case  when  cTq  >  equation  for  the  maximum  stress 

can  be  put  in  a  similar  form 


J  c 

SHmax  ^ 


(5-27) 


where 

2 


(5-28) 


Numerical  calculations  show  that  is  always  greater 

than  for  void  fractions  between  0.2  and  0.4.  Consequently, 
as  long  as  the  fluid  pressure  in  the  reactor  is  such  that 


(5-29) 


The  maximum  shear  stress  is  determined  from  a.  and  a  and  is 

0  r 

independent  of  the  pressure.  For  example,  with  a  void  fraction 


of  0.4,  Tgg  =  46oo°R  and 


=  2400  psi  this  limiting 


pressure  is  approximately  1200  psia. 


The  maximum  hydrogen  temperature  that  can  be  achieved  in 
a  given  reactor  with  a  given  flow  rate  when  it  is  stress  limited 
is  then  given  by  Eq.  5-23*  This  same  equation  could  be  rear¬ 
ranged  to  determine  the  maximum  allowable  flow  rate  if  the  hy¬ 
drogen  temperature  is  the  specified  quantity.  If  the  fluid 
pressure  at  any  point  in  the  reactor  does  not  satisfy  Eq.  5-29 
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a  lower  exit  temperature  or  a  lower  flow  rate  must  be  used  and 
the  maximum  performance  will  not  be  achieved. 

The  stress  limited  portions  of  the  dashed  curves  shown  in 
Fig.  5-1  were  calculated  using  Eq.  5-23-  For  void  fractions  of 
0.2  and  0.3  the  agreement  with  the  detailed  calculations  is 
quite  good.  At  a  given  value  of  Tgg  the  maximum  flow  rate 
per  unit  area  is  predicted  within  7%  for  all  temperatures  down 
to  3000°R.  The  curve  for  a  void  fraction  of  0.4  does  not 
agree  with  the  detailed  calculations  because  Eq.  5-29  is  not  sat¬ 
isfied  when  the  hydrogen  pressure  at  the  reactor  exit  is  800 
psia.  The  detailed  calculations  show  that  the  pressure  near 
the  inlet  end  of  the  reactor  is  near  1500  psia  for  the  speci¬ 
fied  conditions.  The  results  also  show  that  the  maximum  prin¬ 
cipal  stress  is  in  the  axial  and  not  in  the  tangential  direction. 
This  is  expected  because  Eq.  5-29  is  not  satisfied.  If  the 
pressures  in  the  reactor  could  be  reduced  sufficiently  by  chang¬ 
ing  the  value  of  Pg^  the  solid  curve  in  Fig.  5-1  would  be 
shifted  to  the  right  of  tJie  dashed  curve. 

There  is  a  lower  limit  on  the  value  of  the  exit  pressure 
that  can  be  obtained  for  a  given  flow  rate  per  unit  area  and 
exit  temperature.  This  limit  is  reached  when  the  Mach  number 
at  the  exit  of  the  reactor  is  1.  An  approximate  value  for 
this  lower  limit  can  be  obtained  by  using  relationships  which 
are  valid  for  the  one-dimensional  flow  of  a  perfect  gas.  When 
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the  Mach  number  is  unity  (24): 


(5-30) 


If  a  value  of  I.32  is  inserted  for  7,  being  representative  for 
hydrogen  at  high  temperatures,  and  the  right  hand  side  of  the 
equation  evaluated,  the  following  relation  is  obtained; 


(5-31) 


where  w/A^  is  in  Ib/sec  -  in^  ,  Tgg  is  in  °R,  and  Pg^  is  in 

psia.  If  the  flow  per  unit  area  and  the  temperature  are  fixed, 

Eq.  5-31  can  be  solived  for  the  pressure.  The  value  of  pressure 

would  be  the  minimum  possible  exit  pressure  as  a  lower  value 

would  imply  that  the  flow  was  supersonic  and  that  is  impossible 

in  a  constant  area  channel.  For  an  exit  temperature  of  4680°R 

2 

and  a  flow  rate  per  unit  area  of  I.5  Ib/sec  -  in  ,  this  mini¬ 
mum  exit  pressure  is  approximately  t40  psia.  This  value  is  not 
sufficient  to  reduce  the  maximum  pressure  in  the  reactor  to  a 
value  of  1200  psia  which  would  satisfy  Eq.  5-29*  Consequently 
the  maximum  performance  for  the  reactor  with  a  void  fraction  of 
0.4  is  less  that  that  predicted  by  Eq.  5-23 •  To  get  a  closer 
approximation  to  the  limiting  value  of  flow  per  unit  area  in 
this  case  Eq.  5-25  would  have  to  be  used.  This  would  involve 
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obtaining  a  value  for  the  maximum  pressure  in  the  reactor.  This 
can  only  be  done  by  calculating  the  pressure  drop  in  the  coolant 
channel.  To  do  this  the  detailed  machine  calculations  must  be 
carried  out  or  an  additional  approximate  analysis  must  be  de¬ 
veloped. 

The  effect  of  changes  in  the  coolant  channel  diameter  and 
changes  in  the  chopped  sine  power  profile  on  the  stress  limiting 
curve  can  be  seen  by  examining  Eq.  5-23-  The  flow  rate  per  unit 
area  and  the  temperature  rise  across  the  reactor  are  inversely 
proportional  to  the  square  of  the  coolant  channel  diameter. 

This  explains  the  relatively  large  shift  of  the  curve  in  Fig. 
4-l8  for  a  change  in  diameter  from  0.100  inches  to  0.125  inches. 
The  approximate  curve  for  a  diameter  of  0.125  inches,  which 
is  not  shown,  has  a  deviation  of  8%  or  less  from  the  accurate 
results  for  all  temperatures  down  to  3000°R.  The  deviation  for 
all  runs  that  are  not  pressure  limited  is  within  this  same 
range . 
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CHAPTER  VI 

PCWERPLANT  PERFORMANCE 


A.  Calculation  of  Component  Characteristics 

The  powerplant  was  defined  to  consist  of  four  components; 
the  reactor  including  the  reflector,  the  pressure  shell,  the 
turbopump,  and  the  nozzle.  The  performance  characteristics  of 
the  reactor  have  been  covered  in  detail  in  the  last  two  chapters 
The  sizes  and  weights  of  the  other  components  can  now  be  deter¬ 
mined  and  combined  to  get  the  characteristics  of  the  whole 
powerplant. 

The  reactor  size  is  determined  from  the  void  fraction  as 
shown  in  Chapter  IV.  The  weight  of  the  reactor  core  is  then 


«  R  L  (1  -  v) 


(6.-1) 


where  the  density  of  the  core  material  is  1.659 

The  weight  of  the  end  reflector  is 


"^E  =  Pe  "^E  -  ''e^ 


(6-2) 


The  radial  reflector  weight  is 


(6-3) 
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The  density  of  both  the  radial  and  end  reflectors  is  that  for 
beryllium,  1.85  gm/cm"^.  The  weight  of  the  reflected  reactor  is 
just  the  sum  of  the  above  three  weights. 

The  pressure  shell  which  contains  the  reactor  and  reflector 
consists  of  a  cylindrical  portion  and  a  hemispherical  end.  It 
must  withstand  the  maximum  pressure  in  it  which  is  the  hydrogen 
pressure  at  the  reactor  inlet.  The  wall  thickness  is  based  on 
the  hoop  stress  so  that 
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where  D„  is  the  diameter  of  the  pressure  shell.  The  weight  of 


the  pressure  shell  is  then 
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A  material  with  an  allowable  stress  of  60,000  psi  and  a  density 
of  48U  Ib/ft^  was  assumed  for  the  pressure  shell. 

The  turbopump  system  is  a  bleed  system  where  a  small  frac¬ 
tion  of  the  hot  hydrogen  is  removed  from  the  main  flow  to  drive 
the  turbine.  The  power  required  for  the  pump  is 

''^(pijp  _  Pip) 
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(6-6) 


where  p^p  =  I.33  Pg^^  is  tdie  pump  discharge  pressure,  Tjp  is 
the  pump  efficiency,  and  is  the  density  of  the  liquid  hydirogen 
The  pump  discharge  pressure  is  greater  than  the  reactor  inlet 
pressure  to  take  care  of  pressure  losses  in  the  nozzle,  reflector 
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and  piping.  The  amount  of  work  done  per  pound  of  hydrogen  in 
the  turbine  is  fixed  at  1775  Btu/lb.  This  corresponds  to  a  tur¬ 
bine  inlet  temperature  of  approximately  l86o°R  and  a  pressure 
ratio  of  3-1  across  the  turbine.  The  bleed  rate  is  the  fraction 


of  the  propellant  flow  which  must  be  removed  to  run  the  turbine 


"  WTl^  AH^ 
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The  efficiency  of  the  pump  and  turbine  are  both  O.707  so  that 
the  overall  efficiency  of  the  turbopump  system  is  0.5.  The 
weight  of  the  turbopump  is  assumed  to  be  proportional  to  the 
flow  rate  through  the  pump  and  the  pump  discharge  pressure  (42, 
43).  The  eqxiation  for  the  turbopump  weight  (44)  is 

W^p  =  0.00251  p^  w  (6-8) 

where  p^p  is  in  psia  and  w  is  in  Ib/sec, 

The  regenera tively  cooled  nozzle  is  assumed  to  have  a  ratio 
of  exit  area  to  throat  area  of  50.  The  half-angle  is  30°  for  the 
convergent  section  and  15°  for  the  divergent  section.  The  nozzle 
wall  is  assumed  to  consist  of  longitudinal  tubes  for  regenerative 
cooling  surrounded  by  an  outer  shell  to  sustain  the  hoop  stress. 
The  nozzle  weight  is  based  on  equations  in  references  43  and  44. 
The  weight  of  the  convergent  section  is 


1.5  Jt  PjjDp  Pgp 
8  sin  30° 


(6-9) 


where  and  are  the  density  and  strength  of  the  nozzle 

material,  484  Ib/ft^  and  60,000  psi  respectively,  and  is  ■ 

the  diameter  of  the  nozzle  throat.  The  diameter  of  the  nozzle 
throat  is  obtained  by  considering  an  isentropic  expansion  of 
the  hydrogen  from  the  conditions  at  the  exit  of  the  reactor  to 
a  Mach  number  of  unity.  This  process  which  is  shown  in  detail  in 
Appendix  D  yields  the  throat  area  A^  from  which  the  diameter 
is  easily  obtained.  The  weight  of  the  divergent  section  is 


-  C  D 
"  ^l^T  PSE 


>] 


3  /A, 


^E^SE^T  A„ 


^3^SE^t' 


(6-10) 


where  =  0.14?,  Cg  =  0.000268,  =  0.0000117,  and  Ag 

is  the  exit  area  of  the  nozzle.  The  pressure  must  be  in  pounds 
per  square  foot  absolute  and  the  throat  diameter  in  feet  for 
Eq.  6-10.  The  lengths  of  the  convergent  and  divergent  sections 
and  the  design  exit  pressure  for,  the  nozzle  are  also  calculated 
using  equations  presented  in  Appendix  D.  The  total  nozzle 
weight  is  just  the  sum  of  the  two  weights  determined  from  Eqs. 
6-9  and  6-10. 


B.  Powerplant  Characteristics 

The  total  weight  of  the  powerplant  system  is  just  the  sum 
of  the  component  weights  developed  in  the  previous  section. 
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^SYS  ~  ^''^ET  ^TP  (6-11) 

where  is  the  total  weight  of  the  end  reflected  reactor 
and  Wjj  is  the  total  weight  of  the  nozzle.  Fig.  6-1  shows  how 
the  weights  of  the  components  and  the  powerplant  vary  for  a 
particular  system  with  a  fixed  reactor  size.  The  weights  at 
any  given  flow  per  unit  area  are  calculated  for  the  conditions 
defined  by  the  limiting  performance  envelope  shown  in  Fig.  4-17. 

The  net  power  developed  by  the  powerplant  is  the  power 
transferred  to  the  hydrogen  in  the  reactor  minus  the  power  re¬ 
quired  by  the  turbopump.  This  net  power  is 

^sys  =  ^  (6-12) 

This  power  and  the  power  per  xinit  weight  of  the  system  are  '  . 
shown  in  Fig.  6-2  for  the  same  conditions  as  curves  in  Figs. 

4-17  and  6-1.  The  discontinuities  in  the  slopes  of  the  curves 
occur  where  the  limitation  on  the  reactor  performance  changes 
from  wall  temperature  to  stress.  The  reactor  power  increases 
almost  linearly  with  flow  rate  when  the  reactor  is  wall  temper¬ 
ature  limited  because  there  is  only  a  small  decrease  in  the 
exit  gas  temperature.  When  the  reactor  is  stress  limited,  the 
power  remains  approximately  constant  independent  of  the  flow 
rate.  This  occurs  because  any  increase  in  flow  rate  is  accomp- 
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W/Af  ,  FLOW  RATE  PER  UNIT  AREA  (  LB/SEC-IN*) 

FIG.  6-1 :  POWER  PLANT  COMPONENT  WEIGHTS  AND  POWER 
PLANT  SYSTEM  WEIGHT  VS  HYDROGEN  FLOW  PER 
UNIT  AREA  IN  REACTOR  FOR  SYSTEMS  ON  LIMITING 
PERFORMANCE  ENVELOPE  SHOWN  IN  FIG.  4- 17 
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FIG.  6-2«  MAXIMUM  POWER  DEVELOPED  AND  RATIO 
OF  McAXIMUM  POWER  TO  POWER  PLANT 
SYSTEM  V7EIGHT  VS  HYDROGEN  FLOW 
PER  UNIT  AREA  IN  REACTOR  SYSTEM 
ON  LIMITING  PERFORMANCE  ENVELOPE 


POWER  PER  UNIT  WEIGHT  (MW/POUNO) 


anied  by  a  corresponding  decrease  in  the  exit  gas  temperature. 
From  Eq.  5-16  it  can  be  seen  that  the  maximum  power  density  in  • 
the  reactor  is  fixed  once  the  reactor  is  stress  limited.  For 
a  given  reactor  the  shape  of  the  power  distribution  is  a  con¬ 
stant.  Consequently  the  total  power  is  fixed  at  a  specific 
value  along  with  the  maximum  power  density.  The  slight  decrease 
in  net  power  accompanying  an  increase  in  flow  rate  in  Fig.  6-2 
is  due  to  the  larger  amoxmt  of  power  that  is  required  to  run 
the  turbopump.  The  actual  power  developed  by  the  reactor  does 
remain  constant  for  this  syt.em  when  it  is  stress  limited. 

The  net  power  per  unit  weight  of  the  power-plant  decreases 
once  the  reactor  is  stress  limited  because  the  system  weight 
continues  to  increase  even  though  the  power  does  not.  There 
are  no  discontinuities  in  the  slopes  of  the  curves  for  the 
component  weights  as  can  be  seen  in  Fig.  6-1. 

The  effect  of  changes  in  void  fraction  and  consequently 

reactor  size  on  the  power  per  unit  weight  can  be  seen  in  Fig. 

6-3,  All  three  curves  are  for  the  conditions  determined  by  the 

limiting  performance  curves  shown  in  Fig.  19*  The  maximum 

possible  power  per  unit  weight  increases  as  the  reactor  void 

fraction  and  size  increase.  It  appears  at  first  that  it  would 

always  be  advantageous  to  use  a  reactor  with  the  maximum  void 

fraction.  However,  the  reactor  with  a  void  fraction  of  0.2  has 

2 

a  flow  area  of  2.72  ft  while  the  reactor  with  a  void  fraction 
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FI6.6-3:  RATIO  OF  MAXIMUM  POSSIBLE  POWER  DEVELOPED 
TO  POWER  PLANT  SYSTEM  WEIGHT  VS  HYDROGEN 
FLOY/  PER  UNIT  AREA  IN  REACTOR  FOR  SYSTEMS 
ON  LIMITING  PERFORMANCE  ENVELOPES 
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of  0.4  has  a  flow  area  of  12.87  ft  .  Consequently,  if  the  ratio 
of  power  to  weight  is  plotted  versus  the  hydrogen  flow  rate 
rather  than  the  flow  per  unit  area  the  relative  position  of  the 
curves  is  changed.  This  is  shown  in  Fig.  6-4.  For  a  particular 
mass  flow  rate  of  hydrogen  the  maximum  power  per  unit  system 
weight  can  be  obtained  when  the  reactor  which  would  be  both 
wall  temperature  and  stress  limited  at  that  flow  rate  is  used. 

For  example,  at  a  flow  rate  of  790  Ib/sec  a  reactor  witii  a  void 
fraction  of  0.3  should  be  used  to  obtain  the  maximum  power  per 
unit  weight.  The  curves  in. Fig.  6-4  or  a  similar  set  with  tJie 
net  power  plotted  versus  the  hydrogen  flow  rate  could  also  be 
used  to  determine  what  reactor  and  what  flow  rate  should  be  used 
to  obtain  a  specific  amount  of  power. 

The  effect  of  a  change  in  the  shape  of  the  power  profile 
on  the  power  per  unit  system  weight  is  shown  in  Fig.  6-5.  For 
a  change  in  CQ.^^  from  2.5  to  2.75  there  is  only  a  slight  decrease 
in  the  maximum  power  per  unit  weight  that  can  be  developed.  An 
increase  in  the  hydrogen  pressure  at  the  reactor  exit  causes  a 
small  decrease  in  the  power  per  unit  weight.  This  is  primarily 
due  to  an  increase  in  the  system  weight  and  not  a  decrease  in 
the  reactor  power  as  the  limiting  performance  o£  the  reactor  is 
insensitive  to  changes  in  pressure  as  was  stated  in  Chapter  IV. 

The  effect  of  a  change  in  the  coolant  channel  diameter  is  also 
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W{LB/SEC),  MASS  FLOW  RATE 

FIG.  6-4:  RATIO  OF  MAXIMUM  POSSIBLE  POWER  DEVELOPED  TO  POWERPLANT 

SYSTEM  WEIGHT  VS  HYDROGEN  FLOW  RATE  IN  REACTOR  FOR  SYSTEMS 
ON  LIMITING  PERFORMANCE  ENVELOPES. 
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shown  in  Fig.  6-5 •  An  increase  in  diameter  results  in  a  decrease 
in  the  power  per  unit  weight  that  can  be  achieved.  This  effect 
is  more  significant  when  the  reactor  is  stress  limited  and  the 
reactor  becomes  stress  limited  at  lower  flow  rates  per  unit  area 
as  the  coolant  channel  diameter  is  increased. 
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CHAPTER  VII 
SAMPLE  MISSION 

A.  Mission  Calculations 

To  determine  the  characteristics  of  the  complete  rocket 
system  an  operating  or  "burning”  time  must  be  known.  This  per¬ 
mits  the  calculation  of  the  total  amount  of  propellant  and  tank¬ 
age  that  is  required.  In  order  to  compare  different  rocket 
systems  a  particular  mission  was  chosen.  The  payload  weights 

that  can  be  carried  on  the  mission  by  the  different  systems 

« 

then  provide  a  good  basis  for  comparison. 

In  order  to  show  the  method  of  calculation  and  comparison 
a  sample  300  mile  earth  orbital  mission  was  chosen.  The  veloci¬ 
ty  increment  required  for  this  mission  is  26,000  ft/sec  (43). 
This  value  is  based  on  a  vertical  flight  in  a  constant  gravity 
field  with  no  atmospheric  drag.  The  burnout  velocity  for  a 
single  stage  vehicle  starting  from  rest  (l)  is 

(7-1) 

gross  weight  to  the  empty 

(7-2) 


V  =  I  g  In  X  -  gt 
p  sp  ^o  ^  p 


where  X  is  the  ratio  of  the  initial 
weight  at  the  end  of  burning. 


X  = 


W. 
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This  burnout  velocity  is  equal  to  the  velocity  increment  AVp 
required  for  the  mission  as  the  initial  velocity  of  the  vehicle 
is  zero.  The  altitude  at  the  end  of  burning  (1)  is 

"p  ■  ^SP  ^  x]  -  I  ^  '=p'  (T-3) 

The  burnout  velocity  and  altitude  are  specified  by  the  mission 
and  the  specific  impulse  is  a  known  quantity  for  a  particular 
powerplant.  Consequently,  Eqs.  7-1  and  7-3  are  two  equations 
in  two  xanknowns.  Due  to  the  nature  of  the  equations  the  easiest 


way  to  obtain  a  solution  is  by  using  a  trial  and  error  method. 


Eq.  7-1  solved  for  X  is 


X  =  exp 


V.,  +  gt 


^sp  ^o 


(7-4) 


Eq.  7-3  can  be  solved  for  t^  to  give 


I  g 

sp  ®o 


-V'^sp 


(7-5) 


If  tp  is  initially  set  to  zero,  Eq.  7-4  solved  for  X,  and  this 
value  of  X  is  used  in  Eq.  7-5,  a  positive  value  of  tp  is  obtained. 
If  this  value  of  tp  is  inserted  in  Eq.  7-4  and  the  process  is 
repeated,  another  value  of  tp  is  obtained.  Each  successive 
value  of  tp  is  closer  to  the  preceeding  one.  When  the  desired 
accuracy^  on  tp  is  obtained,  the  process  is  stopped  and  the  final 
values  are  used  for  further  computations. 
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B.  Rocket  System  Characteristics 

Once  the  burning  time  is  determined  the  total  mass  of 
hydrogen  required  for  the  mission  is 


W 

H2 


(7-6) 


The  propellant  tank  is  assumed  to  be  cylindrical  with  hemispher¬ 
ical  ends.  The  equations  for  the  length  to  diameter  ratio  of 
the  tank  and  the  tank  weight  are  taken  from  reference  ^4-4. 

The  tank  weight  is 

-  (  1.131  X  10"^^  Wjj2  +  0.00407) 

where  the  tank  pressure  is  in  psia  and  the  weight  of  propellant 
is  in  pounds. 

The  empty  weight  is  determined  from  \  and  the  weight  of 
tile  hydixDgen. 


W, 


Wh2 

\-l 


(7-8) 


The  gross  weight  is  just  tiie  sum  of  the  empty  weight  cind  the 
weight  of  the  hydrogen.  The  weight  of  the  controls  and  structure 
required  to  tie  the  components  together  is  assumed  to  be  equal 
to  two  percent  of  tfie  gross  weight  of  the  system.  This  value 
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is  representative  for  large  rockets  (44) .  To  obtain  more  accur¬ 
ate  estimates  specific  design  studies  would  be  required. 

The  payload  weight  that  can  be  carried  on  the  mission  is 
the  gross  weight  minus  the  weights  of  all  the  other  components 
and  the  propellant. 


W  =  W  -  W  -  W 
PL  G  '^SYS  H2 


(7-9) 


C.  Mission  Results 

The  payload  weights  for  the  sample  mission  are  shown  in  Fig. 
7-1  for  the  powerplant  systems  containing  reactors  with  void 
fractions  of  0.3  and  0.4.  The  independent  parameters  are  those 
determined  by  the  limiting  performance  envelopes  shown  in  Fig. 
4-19.  The  powerplant  system  with  a  reactor  whose  void  fraction 
is  0.2  is  incapable  of  getting  into  a  300  mile  earth  orbit  witdi 
no  payload.  The  same  payloads  divided  by  the  corresponding  gross 
weights  of  the  rocket  systems  are  shown  in  Fig.  7-2.  Both  sets 
of  curves  have  sharp  maxima  that  correspond  to  the  transition 
from  a  wall  temperature  to  a  stress  limitation  in  the  reactor. 
Using  both  figures  it  is  possible  to  determine  which  rocket 
system  has  the  minimum  gross  weight  for  a  given  payload.  For 
example,  for  a  payload  of  10,000  pounds  it  can  be  seen  in  Fig.  7-1 
that  the  system  with  a  reactor  void  fraction  of  0.4  requires  a 
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FIG. 7-1 :  MAXIMUM  PAYLOAD  Y/EI6HT  VS  HYDROGEN 
FLOW  PER  UNIT  AREA  IN  REACTOR  FOR 
EARTH  ORBITAL  MISSION  USING  POWER- 
PLANT  SYSTEMS  ON  LIMITING  PERFORMANCE 
ENVELOPES 


-110- 


/  W.  ,  RATIO  OF  PAYLOAD  TO  GROSS  WEIGHT 
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-  W/Af,  FLOWRATE  PER  UNIT  AREA  (POUNDS /SEC- IN*) 

FIG. 7-2:  MAXIMUM  RATIO  OF  PAYLOAD  TO  GROSS  WEIGHT  VS 
HYDROGEN  FLOW  PER  UNIT  AREA  IN  REACTOR  FOR 
EARTH  ORBITAL  MISSION  USING  POWERPLANT 
SYSTEMS  ON  LIMITING  PERFORMANCE  ENVELOPES 
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flow  rate  per  unit  area  of  0.34  Ib/sec-in  while  the  system 

with  a  reactor  void  fraction  of  0.3  requires  a  w/A^  of  0.56 
2 

Ib/sec-in  .  From  Fig.  7-2  the  former  system  is  seen  to  have 
a  ratio  of  payload  to  gross  weight  of  0.071  while  the  same  ratio 
for  the  latter  system  is  O.089.  The  result  is  that  tiie  system 
with  a  reactor  having  a  void  fraction  of  0.3  is  better  on  a 
weight  basis  because  its  gross  weight  is  less  than  that  of  the 
system  with  v=0.4.  •  Further  inspection  of  the  curves  shows  that 
the  system  with  v=0.3  is  superior  on  a  weight  basis  for  values 
of  payload  up  to  20,500  pounds'.  For  larger  payloads  anotdier 
system  must  be  used.  The  comparison  was  made  here  for  only  two 
systems.  For  a  payload  of  10,000  pounds  there  is  probably  a 
better  system,  which  has  a  reactor  with  a  void  fraction  less 
than  0.3  but  obviously  greater  than  0.2.  In  order  to  determine 
the  best  rocket  configuration  the  characteristics  of  more  systems 
with  different  intermediate  reactor  sizes  would  have  to  be  cal¬ 
culated. 

The  pressure  of  the  hydrogen  in  the  reactor  was  shown  to 
have  little  effect  of  the  performance  characteristics  of  the 
powerplant  as  long  as  it  is  less  than  the  limiting  value  speci¬ 
fied  for  stress  purposes  by  Eq.  5-29*  The  effect  of  the  operat¬ 
ing  pressure  on  tdie  complete  system  and  particularly  on  its  pay- 
load  carrying  capacity  is  also  small.  The  ratio  of  the  payload 


to  gross  weight  of  a  system  is  plotted  versus  the  hydrogen 
pressure  at  the  reactor  exit  in  Fig.  7-3 •  The  hydrogen  temper¬ 
ature  at  the  reactor  exit  and  the  flow  rate  per  unit  area  are 
fixed  at  J4-668°R  and  0.858  Ib/sec-in  respectively  so  the  reactor 
is  both  wall  temperature  and  stress  limited  for  all  cases.  The 
reactor  has  a  void  fraction  of  0.3  and  coolant  channels  witdi  a 
diameter  of  0.100  inches.  There  is  a  fairly  flat  maximum  in 
the  ratio  of  payload  to  gross  weight  even  as  shown  on  the  ex¬ 
panded  scale.  The  gross  weight  of  the  system  increases  witdi 
pressure  for  values  of  Pg^  up. to  1000  psia  while  the  payload 
weight  alone  also  has  a  relatively  flat  maximum.  For  five 
runs  calculated  at  equal  intervals  of  100  psi  the  minimum  pay- 
load  is  20,150  pounds  when  Pgg  =  1000  psia  and  the  maximum  is 
20,460  pounds  when  Pgg  =  800  psia.  This  is  a  variation  in  pay- 
load  weight  of  only  2°/b  ,  However,  these  calculations  do  show 
the  desirable  range  of  operating  pressures  and  indicate  the 
penalty  incurred  for  operating  off  of  the  optimum  point. 
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Pgg  (PSIA),  HYDROGEN  PRESSURE  AT  REACTOR  EXIT 

FIG. 7- 3:  RATIO  OFPAYLOAD  TOGROSS  WEIGHT  VS 
HYDROGEN  PRESSURE  AT  REACTOR  EXIT 
FOR  EARTH  ORBITAL  MISSION. 


CHAPTER  VIII 


SUMMARY  OF  RESULTS  AND  CONCLUSIONS 

A.  Results 

For  a  given  set  of  temperature  and  stress  limits  on  the 
reactor  core  material  the  maximum  possible  operating  conditions 
of  the  reactor  have  been  determined.  These  maximum  operating 
conditions  are  expressed  in  terms  the  hydrogen  propellant  temp¬ 
erature  at  the  reactor  exit  and  the  flow  rate  per  unit  area 
through  the  reactor.  At  low  values  of  flow  rate  per  unit  area 
the  reactors  are  wall  temperature  limited  while  at  higher  values 
stresses  are  limiting.  These  limiting  values  are  shown  on  plots 
of  maximum  hydrogen  temperature  at  the  reactor  exit  versus  pro¬ 
pellant  flow  rate  per  unit  area  through  the  reactor.  Separate 
curves  for  different  reactors  show  the  effect  of  changes  in 
reactor  power  distribution,  void  fraction,  and  the  diameter 
of  the  coolant  channels.  A  decrease  in  the  reactor  void  fraction 
or  an  increase  in  the  diameter  of  the  coolant  channels  causes 
the  reactor  to  become  stress  limited  at  lower  values  of  flow 
per  unit  area.  The  limiting  performance  curves  of  hydrogen 
exit  temperature  versus  flow  per  unit  area  are  insensitive  to 
changes  in  the  operating  pressure  as  long  as  it  is  below  a  specif¬ 
ic  value  determined  from  the  stress  limitation. 

The  amount  of  power  that  can  be  removed  from  the  reactor 
increases  with  the  flow  rate  of  propellant  through  it  as  long  as 
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the  reactor  is  wall  temperature  limited.  At  higher  values  of 
flow  when  the  stresses  are  limiting,  any  increase  in  flow  rate 
must  be  accompanied  by  a  decrease  in  the  hydrogen  temperature 
at  the  reactor  exit.  The  result  is  that  the  power  cannot  be  in¬ 
creased  above  the  value  which  is  obtained  when  both  the  wall 
temperature  and  stress  limits  occur  at  the  same  time.  For  the 
complete  powerplant  which  includes  the  pumping  equipment  required 
for  its  operation,  the  net  power  produced  decreases  as  the  flow 
rate  of  propellant  is  increased  once  the  reactor  is  stress  limit¬ 
ed.  However,  the  weight  of  the  powerplant  always  increases  with 
the  flow  rate  of  propellant  through  it.  Consequently,  there  is 
a  sharp  maximum  in  the  power  per  unit  weight  of  the  powerplant 
that  occurs  at  the  point  where  the  reactor  is  both  wall  tempera¬ 
ture  and  stress  limited.  . 

If  the  power  per  unit  weight  is  plotted  versus  the  mass- flow 
rate  of  hydrogen  rather  than  flow  per  unit  area,  the  curves  for 
different  reactor  sizes  intersect.  For  a  given  flow  rate  of  hydro 
gen  it  is  then  possible  to  determine  which  reactor  will  provide 
the  maximum  power  per  unit  weight.  For  larger  flow  rates  and 
larger  power  requirements  it  is  desirable  to  use  reactors  with 
larger  void  fractions.  The  limiting  performance  conditions  of 
hydrogen  temperature  at  the  reactor  exit  and  flow  rate  per  unit 
area  can  be  determined  within  10^ by  a  simplified  analysis.  Two 
analytic  expressions  were  developed  to  predict  the  position  of 
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the  limiting  performance  envelope  for  the  reactor.  One  expres¬ 
sion  covers  the  wall  temperature  limitation  while  the  second 
covers  the  stress  limited  region.  This  simplified  analysis  can 
be  used  to  obtain  initial  approximate  answers  and  to  reduce  the 
amount  of  computation  time  required  to  get  detailed  results. 

These  analytic  expressions  also  show  the  effect  of  changes  in 
reactor  void  fraction,  coolant  channel  diameter,  and  reactor 
power  distribution  on  the  limiting  performance  envelopes.  It  is 
also  possible  to  obtain  a  value  for  the  operating  pressure  in  a 
reactor  below  which  the  stress  limit  is  independent  of  pressure. 
Only  when  the  pressure  is  above  this  specified  value  is  the  max- 
mum  shear  stress  dependent  on  pressure.  When  this  occurs,  the 
reactor  must  operate  at  less  than  its  maximum  possible  power 
level. 

After  the  limiting  performance  envelopes  are  obtained  for  a 
number  of  different  reactors,  they  can  be  used  to  determine  the 
optimum  system  configuration  for  a  particular  mission.  The  re¬ 
sults  obtained  in  this  study  are  based  on  the  assumption  that 
the  minimum  gross  system  weight  to  do  a  given  job  is  the  best 
measure  of  performance  for  determining  an  optimum  system.  Values 
of  payload  weight  and  the  ratio  of  payload  to  gross  weight  for  a 
given  mission  are  calculated  for  all  the  powerplant  systems  on 
the  limiting  performance  envelopes.  Plots  of  these  parameters 
versus  the  flow  rat©  per  unit  area  through  the  reactors  show 
that  maxima  do  exist.  For  the  particular  sample  mission  chosen 
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for  this  analysis,  a  300  mile  earth  orbital  mission,  these 
maxima  occur  at  the  same  values  of  flow  per  unit  area  that  the 
maxima  in  power  per  unit  powerplant  weight  occur.  This  same 
method  can  be  used  to  find  the  optimum  system  configuration  for 
any  similar  mission.  To  make  any  generalization  with  regard  to 
the  position  of  the  maxima  in  payload  and  in  the  power  per  unit 
powerplant  weight  more  missions  would  have  to  be  investigated  or 
some  approximate  analytical  analysis  would  have  to  be  developed. 

The  above  results  are  restricted  to  powerplants  with  solid 
core  gas  cooled  reactors  and  to  nuclear  rocket  systems.  In 
addition,  some  further  results  which  may  be  of  more  general  in¬ 
terest  were  obtained.  A  procedure  for  calculating  the  heat 
transfer  and  pressure  drop  characteristics  for  the  subsonic  flow 
of  a  compressible  chemically  reacting  gas  in  a  tube  with  heat 
addition  and  wall  friction  was  developed.  This  procedure  is 
presented  in  detail  in  the  appendices  along  with  a  Fortran  coded 
program  for  machine  calculations. 

Equations  for  calculating  the  thermod3mamic  and  transport 
properties  of  normal  hydrogen  over  a  temperature  range  from 
150°  to  4000°  Kelvin  and  for  pressures  from  0.01  to  100.0  atmos¬ 
pheres  were  compiled  and  developed  where  necessary.  The  effects 
of  dissociation  and  of  compressibility  factor  unequal  to  one  are 
taken  into  account  where  necessary.  A  Fortran  coded  program  of 
these  equations  is  available  and  is  presented  in  Appendix  A. 
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B.  Conclusions 

The  results  that  were  obtained  in  this  study  can  be  used 
to  reach  a  number  of  conclusions.  For  a  given  set  of  limitations 
on  the  core  material  the  maximum  power  that  can  be  developed  by 
the  powerplant  is  obtained  when  the  reactor  is  both  wall  temper¬ 
ature  and  stress  limited. 

The  maximum  power  that  can  be  developed  by  the  powerplant 
is  independent  of  the  fluid  operating  pressure  as  long  as  the 
pressure  in  the  reactor  is  less  than  a  specified  value  determined 
by  stress  limitations. 

The  significance  of  the  amount  of  coolant  flow  per  unit  area 
through  the  reactor  on  the  powerplant  performance  indicates  tJie 
desirability  of  using  the  reactor  configuration  which  provides 
maximum  flow  area  per  unit  weight  of  the  reflected  reactor. 

The  operating  pressure  of  the  coolant  in  the  reactor  should 
be  determined  from  mission  caluclations  as  the  powerplant  per¬ 
formance  is  not  sensitive  to  the  fluid  pressure. 

Shaping  the  axial  power  profile  in  the  reactor  such  that 
the  coolant  channel  surface  temperature  would  be  constant  is  not 
desirable.  This  particular  form  of  power  profile  would  cause 
a  reduction  in  the  maximum  possible  power  obtainable  from  the 
reactor.  Other  variations  on  shaping  the  axial  power  profile 
may  be  advantageous . 
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CHAPTER  IX 


RECOMMENDATIONS 

A.  As  result  of  this  investigation  it  has  become  evident  tdiat 
a  number  of  areas  could  be  studied  further  to  obtain  a  better 
insight  and  better  answers  in  the  field  of  nuclear  rocket  pro¬ 
pulsion.  Specific  recommendations  are  listed  below. 

1.  Stress  calculations  for  actual  fuel  element  geometries 
should  be  completed.  The  results  of  these  calculations  could 
then  be  compared  to  those  from  the  simpler  model  used  here  and 
the  probable  error  determined.  The  degree  of  complexity  re¬ 
quired  for  a  stress  model  could  then  be  determined. 

2.  The  use  of  the  maximum  shear  failure  criterion  should 
be  checked  with  the  other  failure  criteria  against  experimental 
tests  on  fuel  element  geometries  where  possible.  In  this  man¬ 
ner  the  best  failure  criterion  for  use  in  design  calculations, 
could  be  determined.  Even  if  experimental  data  are  unavailable 
the  different  failure  criteria  should  be  applied  to  the  accurate 
stress  calculations  on  more  realistic  fuel  element  geometries. 

3.  The  simplified  analysis  for  determining  the  limitations 
on  reactor  performance  should  be  extended  if  possible  to  include 
the  determination  of  the  pressure  drop  across  the  reactor.  It 
would  then  be  possible  to  predict  the  maximum  stresses  in  the 
reactor  for  any  operating  pressure  rather  than  just  the  maximum 
possible  performance  for  the  reactor  system. 


J|.  If  the  work  in  the  above  paragraph  is  carried  out  it 
should  be  possible  to  extend  the  approximate  analytic  analysis 
so  that  numerical  results  could  be  obtained  for  payloads  and 
gross  weights  of  systems  for  different  missions. 

5.  The  possible  gains  that  can  be  obtained  in  powerplant 
performance  by  shaping  the  axial  power  distribution  should  be 
determined.  With  nonuniform  fuel  loading  and  possibly  the  in¬ 
sertion  of  a  neutron  absorbing  material  it  might  be  possible  to 
obtain  an  ideal  power  distribution  that  would  cause  the  core  ma¬ 
terial  to  be  either  wall  temperature  or  stress  limited  at  every 
axial  position.  The  effect  of  such  an  axial  power  distribution 
on  the  powerplant  performance  should  be  determined. 
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APPENDIX  A 
HYDROGEN  PROPERTIES 

1,  Summary 

One  Fortran,  subroutine  has  been  written  to  produce  the 
thermodynamic  and  transport  properties  of  normal  hydrogen.  The 
range  of  temperatures  is  from  150°  to  4000°  Kelvin  and  the  range 
of  pressures  is  from  0.01  to  100.0  atmospheres. 

The  equations  used  in  the  subroutine  are  a  combination  of 
empirical  and  theoretical  equations.  The  effects  of  dissocia¬ 
tion  and  compressibility  factor  being  unequal  to  unity  can  be 
included  or  excluded  in  the  calculation  of  the  properties.  A 
number  of  thermodynamic  property  derivatives  may  also  be  deter¬ 
mined  using  this  subroutine. 

2.  General  Method  • 

The  equations  for  calculating  the  hydrogen  properties  are 

developed  in  such  a  manner  that  either  the  properties  of  the 
molecular  species  or  of  an  equilibrium  mixture  of  the  molecular 
and  atomic  species  can  be  computed.  When  dissociation  occurs,  ' 
both  the  molecular  and  atomic  species  are  consideiod  as  semi- 
perfect  gases  so  that  the  equation  for  chemical  equilibrium 
can  be  written  in  terms  of  the  partial  pressures  of  the  two  com¬ 
ponents.  At  relatively  lower  temperatures  and  higher  pressures 
when  the  dissociation  is  not  important,  the  effect  of  the  compres- 
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slbility  factor  being  unequal  to  one  is  taken  into  account  for 
the  molecular  species.  In  the  intermediate  range  of  temperature 
and  pressure  when  the  effects  of  both  compressibility  factor 
unequal  to  one  and  dissociation  are  small  but  not  zero,  the 
properties  of  the  mixture  are  calculated  including  both  effects 
to  insure  that  no  discontinuities  occur  in  the  calculated  proper¬ 
ties. 


3.  Thermodynamic  Properties 

The  enthalpies,  entropies,  and  specific  heats  of  the  com¬ 
ponents  considered  as  ideal  gases  in  the  standard  state,  are 
calculated  from  empirical  equations  which  are  functions  of 
temperature  only  (17)« 
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A  similar  set  of  equations  exists  for  the  atomic  species  with 
the  coefficients  replaced  with  Bj_’s.  The  coefficients  Aj^ 
and  listed  in  reference  17  were  obtained  from  a  least  squares 
fit  of  tabulated  values  of  the  thermodynamic  functions  for  select' 
ed  temperature  intervals  with  continuity  from  one  interval  to 
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the  next.  For  machine  computations  the  coefficients  are  read 
in  as  data  and  stored  as  elements  of  two  matrices  A  and  B. 

The  equation  for  equilibrium  between  the  molecular  and 
atomic  species  can  be  written  as  follows. 


K  (T) 
P 


where  AF°,  and  are  the  changes  in  free  energy,  enthal¬ 

py,  and  entropy  for  the  dissociation  reaction 
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with  both  components  in  their  standard  states.  In  terms  of  the 
quantities  in  Eqs.  A-1  and  A-2  and  the  corresponding  values  for 
atomic  hydrogen 


(A-6) 


Inserting  Eqs.  A-7  and  A-8  into  Eq.  A-4  and  solving  for  x 
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P 


(A-9) 


2  P  exp  (||-  ) 


The  molecular  weight  of  the  mixture  is 


W  = 


n 


(A-10) 


Noting  that  Wq,  is  just  twice  and  using  Eq.  A-8  the  expres¬ 
sion  for  W  reduces  to 


W  =  (2  -  Xp)  (A- 11) 

In  order  to  take  into  account  the  effect  of  the  compressi¬ 
bility  factor  being  unequal  to  one  for  molecular  hydrogen, 
it  is  necessary  to  know  how  Z  varies  with  temperature  and  pres- 
sure.  For  the  purpose  of  these  calculations  the  functional  re¬ 
lationship  for  is  approximated  as  the  first  two  terms  of  the 
modifed  virial  form  of  the  equation  of  state.  The  virial  equa¬ 
tion  in  standard  form  is 
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The  modified  form  is  a  series  in  p  rather  v  such  that 


were  calculated  from  values  of  7^  tabulated  for  a  pressure  of 
100  atmospheres  (l8).  The  values  of  B’  for  temperatures  above 
600°K  were  calculated  using  Eq.  A-l4  where  the  values  of  B(T) 
were  calculated . from  tabulated  values  of  the  integral  for  the 
second  virial  coefficient  using  the  Buckingham  potential  (37)* 

Eq.  A- 4  governing  chemical  equilibrium  for  the  dissociation 
reaction  was  written  for  the  two  components  being  considered 
ideal  gases.  The  equation  for  does  not  necessarily  give 

=  1.00  when  equation  A-k  gives  =  0.  In  the  interest 

of  preventing  any  discontinuities  in  the  properties  the  equa¬ 
tion  of  state  for  the  mixture  is  written  of  the  following  form: 

P  V  =  ZRT  (A- 18) 

or 

Pv  =  Z  I  T  (A-19) 

where 

l+Xp(Z^-l)  (A-20) 

This  equation  for  Z  results  from  the  assumption  that  the 
molar  densities  are  additive  as  they  are  for  a  Gibbs  Dalton  mix¬ 
ture  even  though  Z^  may  be  unequal  to  1.0,  From  Eq.  A-20  it 
can  be  seen  that  when  x„  =  0  and  the  effect  of  the  compres- 


Z  = 


g 


X  +x„Z 
g  p  g 


sibility  factor  becomes  significant,  Z  =  and  the  equation 
of  state  (A-I9)  reduces  to  that  for  pure  molecular  hydrogen. 
When  Z^  =  1,  Z  =  1  and  the  equation  of  state  for  the  mix¬ 
ture  reduces  to  that  for  a  mixture  of  ideal  gases. 

The  calculation  of  the  deviations  of  the  thermodynamic 
properties  of  molecular  hydrogen  from  the  ideal  gas  properties 
at  the  same  temperature  requires  the  integration  of  compressi¬ 
bility  factor  derivatives  from  zero  pressure  to  the  pressure 
level  p  (38).  The  enthalpy  departure  is 


Using  Eq.  A-I6  and  carrying  out  the  integration  yields 


^ar  _  ^ 

RT  "  RT  ■*  Pa  dT 


(A-21) 


The  entropy  of  the  ideal  molecular  hydrogen  gas  at  its  partial 
pressure  is 


+  X 


P  RT 


(A-26) 


X  ^  ) 
R  / 


(A-27) 


The  specific  heat  of  the  mixture  can  be  obtained  by  differ¬ 


entiating  the  expression  for  enthalpy. 


a  RT  p  RT 


fra  ,  ^  .  I 

P  ^^T^p  ■  S^p  [W  ^  a  RT  p  RT 

[Sx 

”ar  + 

^p  ^’^oi^ar  ^p  ^  ] 


(A-28) 


(A-29) 


Using  Eq.  A-11  and  noting  that  x  +  =  1  Eq.  A-29  can 

C»  p 

be  simplified  to 

c  =  B  (  X  ^  +  X  ^  )  +  i  r^)  ~  (a_3o) 

^p  W  ^  a  R  ^p  R  W  2  -  x„  ''  ' 

PL  p  . 

^X 

The  value  of  determined  by  rewriting  Eq.  A-4 

P 

and  differentiating.  Eq.  A-L  in  terms  of  mole  fractions  is 


P  =  exp  (r^  ) 


(A-31) 


P’^p^  ’^p  ^  ^  )  -  exp  (  -  ^  )  =  0 


(A- 32) 


Then 


bx, 


•P 


At  \  /  P ’ 


aP' 


2  P  Xp  (^T-)  +  exp  (  -  1^)  (^)  +  exp(-^  ) 


RT  ^  '  ''P  RT 


pO  - 

-  exp  (  -  g  ) 

a(  -  RT  ) 

6T 

P 

dT 

L 

=  0 


(A-33) 


To  get  the. last  term 


a  ( 

_  ) 
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1  -  S!  H 
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5f“ 

m 
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\  RT 

R  I) 

fi°_  ^  ^ 

.2  RT 


c  o 

~~RT~  ^  2  RT  ~  2  (A-3^) 

p  Ri  Ri 


Therefore 


a  ( 


AH° 

“  ZJ 


(A-35) 


Jp  RT 


ax, 


Using  Eq.s  A-31  and  A-35,  Eq.  A-33  can  be  solved  for  (3^) 


to  give 


^)p  ^  2  -  xp 


(A-36) 


From  Eq.  A- 11  it  can  be  seen  that 


P  P 


(A- 37) 


A-10 


For  an  equilibrium  mixture  of  the  atomic  and  molecular  species 
of  a  gas  y,  as  defined  by  Eq.  A-42,  is  not  the  ratio'  of 
specific  heats  but  is  related  to  this  ratio  in  a  fairly  simple 
manner  as  will  be  shown  later. 

Starting  with  Eq.  A-^^-2  an  expression  for  y  will  be  developed 

which  will  permit  its  calculation  from  other  known  quantities. 

As  V  =  i 
P 

^  -  m 


An  expression  for  (•^)  in  terms  of  the  partial  derivatives 

(■5^)  (■^)  can  be  derived  from  basic  thermodynamic  re¬ 

lations.  The  result  from  a  table  compiled  by  Bridgeman  is  (38) 


(is’  ^ 


M-hk) 


Then  in  Eq.  A-4-3 


(A-45) 


The  two  derivatives  of  tdie  specific  volume  must  be  evalu¬ 
ated  to  obtain  y.  From  Eq.  A- 19 


A-12 


V 


ZRT 

pW 


(A-46) 


Taking  the  partial  derivative  with  respect  to  pressure 


ZRT  .  RT  /SZx  ZRT 

"  “2“  pw  ■  "77 

p  W  ^  ^T  pW 

(a-47) 

Define 

0-2 
P  z 

/SZ\ 

^T 

(A-k8) 

P 

“p  “  W 

,SW 

^T 

(A-1^9) 

Using  these 

definitions  and  Eq.  A-l<-6 

-  ^  (  1  +  0)^  -  cc) 

P  P  T 

(A-50) 

In  a  similar  fashion  it  can  be  shown  that 

^  (  1  -  a^j,  + 

(A-51) 

where 

c  _  T 

T  “  Z 

(A- 52) 

A-13 


and  cukp  was  defined  by  Eq.  A-38, 
From  Eq.  A- 11 


/SWv 


W  (t-&) 


(A-:?3) 


Then 


CD  = 


£  (|W) 
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(a-54) 


8x 


The  value  of  ("j^)  ^6  determined  in  the  same  manner  that 


Sx 


/  P\ 

'dT  ^  was  starting  with  Eq.  A- 32.  In  this  case  the  derivative 
^  AF° 

of  the  change  in  free  energy  (-|^)  is  zero  because  the  free 
energy  is  a  function  of  temperature  only. 

The  result  is 


^x 


Xp(l-Xp) 

P  (2-Xp) 


(A-55) 


Then  in  Eq.  A-54 
X  (1-x  ) 

a>n  =  — - 1“ 

*’  (2-Xp)" 


(A-56) 


Comparing  Eqs.  A-56  and  A-39  one  can  see  that 


~  “  “p  ^RT  ^ 


(A-57) 


A-llj. 


The  other  two  quatities  that  must  be  evaluated  to  deter¬ 
mine  7  are  Cp  and  Differentiation  of  Eq.  A-20  re¬ 

sults  in 

^  ^  ^  I  (A-58) 

p  a  u  p  pi 

Then 

‘^T  "  ^  ^^^p  ~  ^  (^-59) 

Similarly 

_  r  h7^  5x- 

”P  -  <w\  -  "  (3r>i  J 

The  values  of  the  derivatives  of  x„  have  been  determined  as 

p 

expressed  by  Eqs.  A- 36  and  A-55*  The  values  of  the  derivatives 
of  2^  can  be  determined  by  differentiating  Eq.  A-I6.  Eq.  A-I6 
can  be  rewritten 

=  1  +  bMt)  p  (  1  -  Xp)  (A-61) 

Then  differentiation  gives 

5Z  BX. 

(•g?^)  =  P  (1-Xp)  ^  -  B’  P  (^)  (A-62) 

P  P 


A-15 


and 


-  ’‘e>  -  ®'  p  (*-63) 

dB  ’ 

The  value  of  is  easily  determined  from  Eq.  A-17 

and  will  not  be  worked  out  here. 

It  was  mentioned  previously  that  7  as  defined  here  is  not 
just  the  ratio  of  specific  heats.  In  terms  of  quantities 
defined  above  the  relationship  between  7  and  this  ratio  is 


V 


Z 


1  m 

P  P 


(A-61f) 


From  this  relation  the  effects  dissociation  and  compressibility 
can  easily  be  determined.  It  is  obvious  that  if  the  gas  is 
considered  a  perfect  gas  the  ratio  goes  to  tinity  and  7  is  then 
equal  to  the  ratio  of  specific  heats. 

The  above  equations  are  sufficient  to  calculate  W,  Z,  p,  H, 
S,  Cp,  and  7.  In  the  next  section  expressions  for  derivatives  of 
these  properties  will  be  developed. 


4.  Thermodynamic  Property  Derivatives 

As  well  as  the  property  derivatives  claculated  above  to  get 
7,  expressions  for  (||)^^  (||)  ^  7  ^  7 

be  developed  in  this  section. 


From  the  basic  relation 


Tds  =  dH  -  V  dp 
^  - '' 


From  Maxwells’  relations 


Therefore 


(A-65) 

(A-66) 

(A-67) 


(|a)„  -  -  T  .  V 


(A-68) 


Using  Eq.  A- 51  in  Eq.  A-68  and  simplifying  results  in 

(||)^  =  V  (a^  -  cT^)  (A.69) 

hS 

The  value  of  (^)  can  be  determined  from  either  Eq,  A-66  or 


as, 


A-67.  Using  Eq.  A-65  to  get  (-g^) 

T  (||)^  =  (||)^  -  0  = 


(A-70) 


or 


(^)  =  ^ 
T 


(A-71) 


To  obtain  the  two  partial  derivatives  of  7  requires  the  evalu¬ 
ation  of  a  number  of  second  derivatives.  The  dimensionless 

variables  and  t  are  defined 

T  p 


A-17 
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and 
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Using  Eq.  A-14-5  to  obtain  the  derivatives  one  gets 
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Cm  =  -1+  Cftn  +  2  -  (^) - Z- _  .  1 

(|iL)  +  T_  /5vn^  P 

Cp  L 

(^)p  [l  -  ^  +  2  T  I  (A-76) 


In  a  similar  fashion 


+  n=  (^)  -  — ^ 
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(A-77) 


In  these  expressions  for  and  the  five  quantities  which 
have  not  yet  been  determined  are  the  three  second  derivatives 
of  the  specific  volume  and  the  two  partial  derivatives  of  the 
specific  heat. 

dc 

To  obtain  an  expression  for  (^)  starting  with  Eq.  A-lj-0 
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or  simplifying  and  using  the  definition  of 
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From  equation  A-25  and  noting  that  =  x„p 
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Then  in  more  compact  form 
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(A-79) 


(A-80) 


(A-81) 


A-20 


c  c 

The  values  of  the  deriviatives  of  the  deriva¬ 

tives  of  b'  are  obtained  by  straightforward  differentiation 

of  Eq.  A-3,  the  corresponding  equation  for  ,  and  Eq.  A-17  < 

The  only  term  in  Eq.  A-79  which  has  not  been  evaluated  is 

^Oiri 

(■^^)  .  Starting  with  Eqs.  A- 56  and  A- 57  expressions  for  the 
P 

two  deriviatives  of  ojp  and  ofa>^  are  developed  as  follows. 

From  Eq.  A-56. 


hx  1-x 
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2x  (1-X  )■ 

^  (A- 82) 


Noting  from  Eqs.  A- 5 5  and  A- 56  that 


-(2V 


(A- 83) 


Then 


-(2-Xp^ 

P(2-Xp)“ 


(l-3Xp)(2-X| 
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which  simplifies  to 


T  p(2-Xp)  " 


(A-85) 
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or  using  Eq.  A- 57  again 


■Sciip 
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^  (^)  _  1  (“t  P  — 2) 
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(A-92) 


Expressions  for  the  second  derivatives  of  the  specific 
volume  can  be  determined  by  differentiating  Eqs.  A-50  and  A- 51. 
From  Eq.  A- 51 

(^)  -  1  1  +  V  1  (A-93) 

oT_  p  n  Lp  pj 


Differentiation  of  Eq.  A- 52  gives 
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Inserting  Eq,  A-95  into  A-93  and  simplifying  yields 
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(A-101) 


In  developing  the  expressions  for  the  second  derivatives  of  the 
specific  volume  the  yet  undetermined  quantities  are  the  second 
derivatives  of  the  compressibility  factor  Z.  The  first  derivative 
of  Z  with  respect  to  temperature  is  given  by  Eq.  A- 58.  Further 
differentiation  gives 
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Using  Eqs.  A-52  and  A-58  in  A-102  and  simplifying  results  in 
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(A-103) 


P  P 

In  exactly  the  same  manner,  the  second  derivative  with  respect 
to  pressure  can  be  found  and  it  is  equivalent  to  Eq.  A-103  with 
T  replaced  by  p. 
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5 .  Transport  Properties 

The  transport  properties  are  calculated  using  a  modified 
Buckingham  potential  for  temperatures  up  to  lOOo'^K  (19,39). 

In  this  region  dissociation  is  not  taken  into  consideration. 

For  pressures  above  0.01  atmospheres  and  temperatures  less 
than  1000°K  the  gas  is  essentially  pure  molecxilar  hydrogen  and 
this  is  a  good  assumption.  Above  1000°K  the  transport  proper¬ 
ties  are  for  an  equilibrium  mixture  of  dissociating  hydrogen 
(20).  High  pressure  corrections  are  calculated  from  a  tdieoreti- 
cal  formula  due  to  Enskog  (21). 

a.  Transport  Properties  Below  1000°K 

Tabulated  values  of  the  collision  integrals  based  on  the 
modified  Buckingham  or  ”exp-six"  potential  used  to  calculate 
the  transport  properties  below  1000°K  are  available  in  the 
literature  (39, 4o).  For  these  calculations  the  values  of  suita¬ 
ble  functions  of  the  collision  integrals  were  fitted  in  the 


A-28 


z  =  /  (1  -  |)  Q 


(A- 117) 


rather  than  the  more  rapidly  varying  ^  collision  in¬ 

tegrals  . 

The  coefficient  of  viscosity  of  a  pure  gas  is 


5  /WRTx 
=  2l  ) 


1/2  f 


(A-118) 


where  W  is  the  molecular  weight,  R  is  the  gas  constant  per 
mole,  N  is  Avogadros’  number,  f  is  an  infinite  series  which 

O  |i 

is  nearly  unity  and  its  deviations  from  unity  are  corrections 
for  the  viscosity  above  the  first  approximation,  and 
( 22 

^  (T  )  is  the  appropriate  collision  integral.  ■ 


where  p  is  in  poise,  T  is  in  degrees  kelvin,  and  r^  is 
angstroms. 

The  third  approximation  for  f  was  used  in  calculating 
the  viscosity  of  molecular  hydrogen.  The  tabulated  values  wei>e 


A- 30 


fitted  to  an  equation  in  the  same  manner  as  the  collision  in¬ 
tegrals  were  fitted. 

The  formula  for  viscosity  as  given  by  Eq.  A- 119  is  correct  ; 
if  the  gas  is  at  low  pressure  and  simultaneous  encounters  of 
three  or  more  molecules  can  be  neglected.  At  high  pressures 
the  deviation  due  to  the  departure  from  an  ideal  gas  can  be  ac¬ 
counted  for  by  an  equation  of  the  form  (20) 

=  1  +  0.175  (bpx;  +  0.7557  (bpx)^  -  o.405  rbpx'i^  (A-12o) 

where  p  is  the  value  for  an  ideal  gas  as  calculated  using  Eq. 
A-119  and  is  the  corrected  value.  The  quantity  bpx  can 

be  shown  to  be  given  by 


bpx  =  Z  -  1  +  T  (■^)  (A-121) 

P 

where  Z  is  the  compressibility  factor.  The  value  of  (i-) 

P 

can  be  determined  as  follows.  Starting  with 


(A- 122) 


and  dividing  by  dT 


P  T  P 


(A-123) 


Then  as  the  two  derivatives  of  Z  with  respect  to  T  and  p  are 

known  and  only  (■^)  must  be  determined.  Noting  that  only  the 

P 

molecular  species  is  present  the  equation  of  state  is 

(a- 124) 

Then 

(||)  =  2  P  i  T  {^)  (A-125) 

P  P 

as  W  is  constant  or 


(|^)  =1  +  1  (||) 

P  .  P 
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Combining  Eqs.  A-123  and  A-126  and  simplifying  results  in  the 
following  expression 


p  f^Z^ 

^  f 

T  p  7^ 


(A- 127) 


Using  Eqs.  A-62  and  A-63  to  evaluate  the  derivatives  of  Z 
and  remembering  that  for  the  case  being  considered  tiie  mole 
fraction  of  the  atomic  species  and  its  derivatives  are  zero  the 

^Zi 

expression  for  C-^)  can  be  reduced  to 
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where  D  the  self-diffusion  coefficient,  is  given  to  the  third 
approximation  by 
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2.628  X  10“^ 


3/2 

T 


(A-133) 


The  thermal  conductivity  of  the  pure  gas  is  then  the  sum  of 
the  translational  and  internal  portions . 


\  = 


X.  . 
int 


(A-131^) 


A  high  pressure  correction  for  the  thermal  conductivity  similar 
to  the  one  for  viscosity  is 


^  =  1  +  0.575  (bpx)  +  0.5017  (bpx.)^  -  0.204  (bpx)^  (A-I35) 

o 

b.  Transport  Properties  Above  1000°K 

The  transport  properties  of  dissociating  hydrogen  gas 
above  lOOO^K  have  been  calculated  and  tabulated  by  vanderslice, 
et  al  (20).  The  development  of  the  equations  and  the  calcula- 
tional  procedure  is  explained  in  considerable  detail  in  the  re- 
Consequently  very  little  explanation  will  be  presented 


port. 


As  for  the  properties  below  1000°K,  the  collision  inte¬ 
grals  for  the  properties  here  have  been  fitted  to  fourth  order 

polynomials:  The  only  difference  is  that  in  this  case  the  inde- 

,  * 
pendent  parameter  is  T/1000  rather  than  T  . 

The  viscosity  of  the  pure  gas  component  is  given  by  an 

equation  similar  to  A- 119  where  f  is  assumed  to  be  unity 

_ 

and  the  collision  integral  ^  includes  the  r^^  of  Eq.  A- 

119  where 
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The  viscosity  of  the  binary  mixture  is 
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where 
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The  value  of 
Eq.  A-138. 


is  found  by  interchanging  subscripts  in 
PP 

The  diffusion  coefficient  is  given  by 
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If  i  and  i  are  different  species  than  D. ;  is  the  mu- 

,  13 

tual  diffusion  coefficient,  but  if  j  =  i  tdien  is  called 

the  self  diffusion  coefficient  and  Eq.  A-l40  reduces  to  an  ex¬ 
pression  like  that  in  Eq.  A-133* 


The  thermal  conductivity  of  the  mixture  can  be  written  as 
the  sum  of  three  parts.  As  for  a  single  component  polyatomic 
gas  or  non-reacting  mixture,  there  are  the  internal  and  the 
translational  conductivities  and  there  is  an  additional  portion 
due  to  the  chemical  reaction. 

The  translational  thermal  conductivity  of  a  pure  gas  to 
the  first  approximation  is  given  by  Eq.  A-I30  , 

The  translational  conductivity  of  a  binary  mixture  is 
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The  value  of  Lg^  is  obtained  by  interchanging  subscripts  in 
Eq.  A-142.  The  internal  thermal  conductivity  of  the  mixture  i 
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1  ^ 

where  for  the  individual  species 


K  -  X  ®  ^  (c  -Ir) 

\  \  "  RT  ^  pi  2 


is  expressed  in  Eq.  A-132.  It  should  be  noted  that  for  tdie 
atomic  hydrogen  species  -  X^®  is  equal  to  zero. 

The  portion  of  the  thermal  conductivity  due  to  chemical 
reaction  is 


P^rp  (ah)^ 

.2 

RT  2 

»  «■ 

The  thermal  conductivity  of  the  chemically  reacting  mix- 


(A-143) 


(A-l41f) 


(A-1^5) 


(A- 11+6) 
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ture  is  then 


X  -  \  (A-lkl) 

6.  Hydrogen  Property  Results 

Tabulated  values  of  the  properties  assuming  equilibrium 
composition  are  presented  in  Tables  A-1,  A-2,  and  A-3  for  three 
different  pressure  levels.  The  same  properties  are  plotted 
versus  temperature  in  Figs.  A-1  through  A- 19* 

The  property  values  were  checked  with  tabulated  values  in 
reference  18  and  with  other  data  in  the  references  in  regions 
where  it  is  available.  Except  for  the  thermal  conductivity  and 
Prandtl  number  the  differences  in  the  property  values  calculated 
with  the  subroutine  and  the  values  tabulated  in  reference  18 
are  less  than  5  °/q  .  For  temperatures  above  300°K  the  agree¬ 
ment  is  within  1  °/q.  The  thermal  conductivity  and  consequent¬ 
ly  the  Prandtl  number  agree  within  6  °/q  for  values  of  temperatures 
up  to  700°K  as  tabulated  in  reference  18.  The  values 
as  tabulated  there  were  computed  from  an  empirical  formula 
about  which  the  experimental  data  deviates  by  plus  or  minus 
about  5°/q»  Consequently  the  values  calculated  using  this 
subroutine  are  within  a  reasonable  accuracy. 


TABLE  A-1 


HYDROGEN  PROPER! I ES-EQUIL I BR I UM  COMPOSITION 
P=  1#00  ATM 


GM/GM-MOLE 


10000  RHO 
GM/CM3 


T 

DEG  K 

150.0 

200.0 

300.0 

400.0 

500.0 

600.0 

700.0 

800.0 

900.0 

1000.0 

1100.0 

1200.0 

1300.0 

1400.0 

1500.0 

1600.0 

1700.0 

1800.0 

1900.0 

2000.0 

2100.0 

2200.0 

2300.0 

2400.0 

2500.0 

2600.0 

2700.0 

2800.0 

2900.0 

3000.0 

3100.0 

3200.0 

3300.0 

3400.0 

3500.0 

3600.0 

3700.0 

3800.0 

3900.0 

4000.0 


1.0008 

1.0008 

1.0006 

1.0005 

1.0004 

1.0003 

1.0003 

1.0003 

1.0002 

1.0002 

1.0002 

1.0002 

1.0001 

1.0001 

1.0001 

1.0001 

1.0001 

1.0001 

1.0001 

1.0001 

1.0001 

1.0001 

1.0001 

1.0001 

1.0001 

1.0001 

1.0001 

1.0001 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 


0. 

0. 

0. 

0. 

0. 

0. 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0001 

0.0001 

0.0004 

0.0008 

0.0016 

0.0031 

0.0056 

0.0096 

0.0157 

0.0247 

0.0375 

0.0550 

0.0782 

0.1081 

0.1453 

0.1904 

0.2433 

0.3035 

0.3696 

0.4399 

0.5119 

0.5829 

0.6504 

0.7121 

0.7665 


2.01626 

2.01626 

2.01626 

2.01626 

2.01626 

2.01626 

2.01626 

2.01626 

2.01626 

2.01626 

2.01626 

2.01626 

2.01626 

2.01626 

2.01624 

2.01621 

2.01611 

2.01590 

2.01546 

2.01463 

2.01314 

2.01062 

2.00659 

2.00042 

1.99134 

1.97846 

1.96082 

1.93741 

1.90731 

1.86975 

1.82430 

1.77096 

1.71032 

1.64363 

1.57279 

1.50021 

1.42859 

1.36058 

1.29838 

1.24350 


1.6366 

1.2276 

0.8185 

0.6140 

0.4912 

0.4094 

0.3509 

0.3070 

0.2729 

0.2457 

0.2233 

0.2047 

0.1890 

0.1755 

0.1638 

0.1535 

0.1445 

0.1365 

0.1293 

0.1227 

0.1168 

0.1114 

0.1063 

0.1016 

0.0971 

0.0927 

0.0885 

0.0843 

0.0801 

0.0759 

0.0717 

0.0674 

0.0632 

0.0589 

0.0548 

0.0508 

0.0471 

0.0436 

0.0406 

0.0379 
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TABLE  A-1  CONT, 


HYDROGEN  PROPERTIES-EOUILIBRIUM  COMPOSITION 
P=  1,00  ATM 


T 

DEG  K 


H  S  CP 

CAL/GM  CAL/GM-K  CAL/GM-K 


DH/DP 

CAL/GM-PSI 


150,0 

200,0 

300,0 

400,0 

500,0 

600,0 

700,0 

800,0 

900,0 

1000,0 

1100,0 

1200,0 

1300,0 

1400,0 

1500,0 

1600,0 

1700,0 

1800,0 

1900,0 

2000,0 

2100,0 

2200,0 

2300,0 

2400,0 

2500,0 

2600,0 

2700,0 

2800,0 

2900,0 

3000,0 

3100,0 

3200,0 

3300,0 

3400,0 

3500.0 

3600,0 

3700,0 

3800,0 

3900,0 

4000,0 


33933.6 
34089,9 

34424.6 

34768.7 

35115.1 
35462,0 

35810.1 

36159.8 

36512.4 

36868.3 

37228.2 

37592.8 

37962.5 

38337.5 

38717.9 
39104,0 

39496.6 

39897.1 

40308.3 

40734.6 

41182.9 

41662.7 

42187.6 

42775.1 

43447.4 

44231.5 

45159.4 

46268.1 

47598.8 

49195.7 

51104.4 

53368.4 

56024.1 

59093.6 

62575.1 

66432.9 
70590,0 

74927.4 

79294.8 
83532,3 


13,237 

14.135 

15.489 

16.479 

17.252 

17.884 

18,421 

18,888 

19,303 

19,678 

20,021 

20,338 

20.634 

20.912 

21.174 

21,423 

21.661 

21,890 

22.113 

22,331 

22,550 

22,773 

23.006 

23,256 

23,530 

23,838 

24.188 

24,591 

25,057 

25,599 

26,224 

26,943 

27,760 

28,676 

29,684 

30,771 

31,910 

33,067 

34,201 

35,274 


3,037 

3.214 

3.417 

3.460 

3.460 
3,476 
3,485 
3,511 
3.542 
3,577 
3.622 
3,671 
3.723 
3.777 
3.832 
3.892 
3.962 
4,053 
4,179 
4,359 
4,621 
4,998 
5,529 
6,258 
7,233 
8,503 

10,118 

12,125 

14,562 

17,453 

20,795 

24.547 

28,606 

32.783 

36,789 

40,239 

42,703 

43,791 

43,285 

41,223 


0,3202E-02 
0,4807E-02 
0.7834E-02 
0,1029E-01 
0,1209E-01 
0.1332E-01 
0,1409E-01 
0.1452E-01 
0,1469E-01 
0.1469E-01 
0,1455E-01 
0.1423E-01 
0.1321E-01 
0,9622E-02 
-0.2054E-02 
-0,3545E-01 
“0,1198E-00 
-0.3113E-00 
«0,7076E  00 
“0,1467E  01 
-0.2827E  01 
-0,5129E  01 
-0,8836E  01 
-•0,1455E  02 
-0.2303E  02 
-0,3520E  02 
-0.5214E  02 
-0.7508E  02 
-0.1053E  03 
-0,1442E  03 
■-0,1929E  03 
-0,2521E  03 
-0.3216E  03 
-0.3997E  03 
-0.4828E  03 
-0.5645E  03 
-0,6366E  03 
“0,6896E  03 
-0,7160E  03 
-0,7118E  03 
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TABLE  A-1  CONT. 


HYDROGEN  PROPER! I ES~EOUI L I BR lUM  COMPOSITION 


p=  1 

.00  ATM 

T 

DS/DT 

DS/DP 

OMEGT 

OMEGP 

DEG  K 

CAL/GM-K2 

CAL/GM-K-PSI 

150.0 

0.2025E-01 

-0.6706E-01 

-0 

• 

0. 

200.0 

0.1607E-01 

-0.6705E-^01 

-0 

0.  . 

300.0 

0.1139E-01 

-0.6704E-01 

-0 

• 

0. 

400.0 

0.8650E-02 

-0.6703E-01 

-0 

0. 

500.0 

0.6920E-02 

-0.6702E-01 

-0 

• 

0. 

600.0 

0.5794E-02 

-0.6702E-01 

-0 

.1014E-14 

0.1150E-16 

700.0 

0.4978E-02 

-0.6702E-01 

-0 

.4765E-12 

0.6290E-14 

800.0 

0.4389E-02 

-0.6702E-01 

-0 

.4791E-10 

0.7207E-12 

900.0 

0.3935E-02 

-0.6702E-01 

-0 

.1723E-08 

0.2908E-10 

1000.0 

0.3577E-02 

~0.6702E-01 

-0 

.3018E-07 

0.5646E-09 

1100.0 

0.3293E-02 

-0.6702E-01 

-0 

.3134E-06 

0.6432E-08 

1200.0 

0.3059E-02 

-0.6702E~01 

-0 

.2198E-05 

0.4910E-07 

1300.0 

0.2864E-02 

-0.6702E-01 

-0 

.1140E-04 

0.2752E-06 

1400.0 

0.2698E-02 

-0.6702E-01 

-0 

.4665E-04 

0.1210E-05 

1500.0 

0.2555E-02 

-0.6703E-01 

-0 

.1579E-03 

0.4380E-05 

1600.0 

0.2432E-02 

--0.6705E-01 

-0 

.4582E-03 

0.1353E-04 

1700.0 

0.2330E-02 

-0.6710E-01 

-0 

.1171E-02 

0.3667E-04 

1800.0 

0.2251E-02 

-0.6721E-01 

-0 

.2693E-02 

0.8910E-04 

1900.0 

0.2199E-02 

-0.6743E-01 

-0 

.5662E-02 

0.1975E-03 

2000.0 

0.2180E-02 

-0.6782E-01 

-0 

.1104E-01 

0.4045E-03 

2100.0 

0.2201E-02 

-0.6848E-01 

“0 

.2016E-01 

0.7744E-03 

2200.0 

0.2272E-02 

-0.6955E-01 

-0 

.3479E-01 

0.1398E-02 

2300.0 

0.2404E-02 

-0.7119E-01 

-0 

.5715E-01 

0.2398E-02 

2400.0 

0.2608E-02 

-0.7362E-*01 

-0 

.8985E-01 

0.3928E-02 

2500.0 

0.2893E-02 

-0.7708E-01 

-0 

.1359E-00 

0.6180E-02 

2600.0 

0.3270E-02 

-0.8185E-01 

-0 

• 1983E-00 

0.9370E-02 

2700.0 

0.3747E-02 

-0.8823E-01 

-0 

.2804E-00 

0.1374E-01 

2800.0 

0.4330E-02 

-0.9657E-01 

-0 

.3846E-00 

0.1952E-01 

2900.0 

0.5021E-02 

-0.1072E-00 

-0 

.5128E  00 

0.2693E-01 

3000.0 

0.5818E-02 

-0.1203E-00 

-0 

.6653E  00 

0.3611E-01 

3100.0 

0.6708E-02 

-0.1363E-00 

-0 

.8402E  00 

0.4708E-01 

3200.0 

0.7671E-02 

-0.1551E-00 

-0 

.1032E  01 

0.5966E-01 

3300.0 

0.8669E-02 

“0.1765E-00 

-0 

.1233E  01 

0.7344E-01 

3400.0 

0.9642E-02 

-0.1998E-00 

-0 

.1430E  01 

0.8766E-01 

3500.0 

0.1051E-01 

-0.2239E-00 

-0 

.1606E  01 

0.1012E-00 

3600.0 

0.1118E-01 

-0.2469E-00 

-0 

.1741E  01 

0.1128E-00 

3700.0 

0.1154E-01 

-0.2666E-00 

-0 

.1819E  01 

0.1211E-00 

3800.0 

0.1152E-01 

-0.2808E-00 

-0 

.1827E  01 

0.1248E-00 

3900.0 

O.lllOE-01 

-0.2877E-00 

-0 

.:764E  01 

0.1236E-00 

4000.0 

0.1031E-01 

-0.2866E-00 

-0 

.1638E  01 

0.1176E-00 
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TABLE  A-1  CONT 


HYDROGEN  PROPER! I ES-EQU IL I BR lUM  COMPOSITION 
P»  1.00  ATM 


T  SIGT 

DEG  K 

150.0  -0.3182E-03 

200.0  -0.3583E-03 

300.0  -0.3894E-03 

400.0  -0.3836E-03 

500.0  -0.3608E-03 

600.0  -0.3312E-03 

700.0  -0.3003E-03 

800.0  -0,2707E-03 

900.0  -0.2434E-03 

lOOp.O  -0.2191E-03 
1100.0  -0.1977E-03 

1200.0  -0.1791E-03 

1300.0  -0.1630E-03 

1400.0  -0.1492E-03 

1500.0  -0.1375E-03 

1600.0  -0.1277E-03 

1700.0  -0.1196E-03 

1800.0  -0.1132E-03 

1900.0  -0.1084E-03 

2000.0  -0.1054E-03 

2100.0  -0.1042E-03 

2200.0  -0.1049E-03 

2300.0  -0.1078E-03 

2400.0  -0.1131E-03 

2500.0  -0.1206E-03 

2600.0  -0.1303E-03 

2700.0  -0.1417E-03 

2800.0  -0.1539E-03 

2900.0  -0.1657E-03 

3000.0  -0.1757E-03 

3100.0  -0.1822E-03 

3200.0  -0.1834E-03 

3300.0  -0.1784E-03 

3400.0  -0.1666E-03 

3500.0  -0.1489E-03 

3600.0  -0.1267E-03 

3700.0  -0.1026E-03 

3800.0  -0.7901E-04 

3900.0  -•0.5799E-04 

4000.0  -0.4078E-04 


SIGP 


0.8483E-03 

0.7508E-03 

0.5980E-03 

0.4863E-03 

0.4030E-03 

0.3398E-03 

0.2911E-03 

0.2529E-03 

0.2227E~03 

0.1983E-03 

0.1784E-03 

0.1621E-03 

0.1484E-03 

0.1368E-03 

0.1270E-03 

0.1184E-03 

0.1109E-03 

0.1043E-03 

0.9836E-04 

0.9295E-04 

0.8797E-04 

0.8331E-04 

0.7888E-04 

0.7459E-04 

0.7039E-04 

0.6619E-04 

0.6195E-04 

0.5759E-04 

0.5309E-04 

0.4841E-04 

0.4355E-04 

0.3851E-04 

0.3336E-04 

0.2820E-04 

0.2317E-04 

0.1844E-04 

0.1418E-04 

0.1053E-04 

0.7556E-05 

0.5261E-05 


ZETAT 


-0.8244E-01 

-0.9599E-01 

-0.2031E-01 

-0.1314E-01 

-0.1189E-01 

-0.9716E-02 

-0.1960E-01 

-0.2588E-01 

-0.3284E-01 

-0.4608E-01 

-0.5370E-01 

-0.6117E-01 

-0.6587E-01 

-0.7033E-01 

-0.7579E-01 

-0.8439E-01 

“0.1007E-00 

-0.1282E-00 

“0.1680E-00 

-0.2195E-00 

-0.2766E-00 

-0.3338E-00 

“0.3737E-00 

-0.3867E-00 

-0.3711E-00 

-0.3329E-00 

-0.2808E-00 

-0.2227E-00 

-0.1651E-00 

-0.1115E-00 

-0.6320E-01 

-0.2080E-01 

0.1817E-01 

0.5399E--01 

0.8792E-01 

0.1213E-00 

0.1557E-00 

0.1924E-00 

0.2342E-00 

0.2833E-00 


ZETAP 


0.2132E-02 

0.1784E-02 

0.1317E-02 

0.1018E-02 

0.8140E-03 

0.6699E-03 

0.5651E-03 

0.4873E-03 

0.4280E-03 

0.3818E-03 

0.3453E-03 

0.3185E-03 

0.3076E-03 

0.3343E-03 

0.4491E-03 

0.7484E-03 

0.1387E-02 

0.2569E-02 

0.4503E-02 

0.7296E-02 

0.1083E-01 

0.1466E-01 

0.1809E-01 

0.2048E-01 

0.2145E-01 

0.2105E-01 

0.1960E-01 

0.1751E-01 

0.1514E-01 

0.1276E-01 

0.1048E-01 

0.8351E-02 

0.6367E-02 

0.4500E-02 

0.2693E-02 

0.8761E-03 

-0.1044E-02 

~0.3186E-02 

-0.5712E-02 

-0.8803E-02 
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TABLE  A-1  CONT 


HYDROGEN  PROPERTIES-EQUILIBRIUM  COMPOSITION 


P=  l.OO  ATM 

T  GAMMA 

DEG  K 


1000  MU  1000  LAMBDA 
GM/CM-SEC  CAL/CM-SEC-K 


150*0 

1*483 

200.0 

1*444 

300*0 

1*407 

400*0 

1*399 

500*0 

1.399 

600*0 

1.396 

700*0 

1*395 

800*0 

1*391 

900*0 

1*386 

1000*0 

1.381 

1100*0 

1*374 

1200*0 

1*367 

1300*0 

1*360 

1400*0 

1*353 

1500*0 

1*346 

1600*0 

1*340 

1700*0 

1*332 

1800*0 

1*324 

1900*0 

1*313 

2000*0 

1*300 

2100*0 

1*285 

2200*0 

1*266 

2300*0 

1*247 

2400*0 

1*226 

2500*0 

1*207 

2600*0 

1*191 

2700*0 

1*177 

2800*0 

1*166 

2900*0 

1*158 

3000*0 

1*153 

3100*0 

1*150 

3200*0 

1*148 

3300*0 

1*148 

3400*0 

1*149 

3500*0 

1*152 

3600*0 

1*155 

3700*0 

1*160 

3800*0 

1*165 

3900*0 

1*171 

4000*0 

1*179 

0*0553 

0.2470 

0*0679 

0*3197 

0*0898 

0*4486 

0*1090 

0*5518 

0*1265 

0*6411 

0*1428 

0.7277 

0*1583 

0*8089 

0*1731 

0*8915 

0*1874 

0*9735 

0*1999 

1,0467 

0*2126 

1*1293 

0*2250 

1*2138 

0*2373 

1*3007 

0*2493 

1*3891 

0*2613 

1*4804 

0*2731 

1*5764 

0*2849 

1*6815 

0*2965 

1*8042 

0*3082 

1*9573 

0*3198 

2.1597 

0*3315 

2*4379 

0*3432 

2*8273 

0*3551 

3*3723 

0.3672 

4*1246 

0*3795 

5*1417 

0*3922 

6*4845 

0*4054 

8*2131 

0*4190 

10*3782 

0*4331 

13*0124 

0*4477 

16*1186 

0*4624 

19*6556 

0*4771 

23*5222 

0*4911 

27*5446 

0*5039 

31*4639 

0*5148 

34*9496 

0*5233 

37*6331 

0*5291 

39*1728 

0*5323 

39*3401 

0*5333 

38*0984 

0*5329 

35*6270 

PR 


0*6800 
0*6826 
0*6843 
0*6836 
0*6827 
0*6823 
0*6819 
0*6817 
0*6817 
0*6833  . 
0*6819 
0*6803 
0*6792 
0*6779 
0*6763 
0*6743 
0*6712 
0*6661 
0*6579 
0*6436 
0*6284 
0*6067 
0*3822 
0*5571 
0*5339 
0*5143 
0*4994 
0*4895 
0*4847 
0*4847 
0*4892 
0*4978 
0*5100 
0*5250 
0*5419 
0*5595 
0*5768 
0*5925 
0*6060 
0*6166 
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HYDROGEN  PROPER! lES-EQUI LI 
P=  10,00  ATM 


T 

DEG  K 

150,0 

200,0 

300,0 

400,0 

500,0 

600,0 

700,0 

800,0 

900,0 

1000,0 

1100,0 

1200,0 

1300,0 

1400,0 

1500,0 

1600,0 

1700,0 

1800,0 

1900,0 

2000,0 

2100,0 

2200,0 

2300,0 

2400,0 

2500,0 

2600,0 

2700,0 

2800,0 

2900,0 

3000,0 

3100,0 

3200,0 

3300,0 

3400,0 

3500,0 

3600,0 

3700,0 

3800,0 

3900,0 

4000,0 


2 


1.0085 

1,0075 

1.0060 

1.0049 

1.0040 

1.0034 

1.0029 

1.0025 

1.0022 

1.0020 

1.0018 

1.0016 

1.0015 

1.0014 

1.0013 

1.0012 

1.0011 

1.0010 

1.0010 

1.0009 

1.0009 

1.0008 

1.0008 

1.0008 

1.0007 

1.0007 

1.0006 

1.0006 

1.0006 

1.0005 

1.0005 

1.0004 

1.0004 

1.0004 

1.0003 

1.0003 

1.0003 

1.0002 

1.0002 

1.0002 


XB 


0. 

0. 

0. 

0. 

0. 

0. 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0001 

0.0002 

0.0005 

0.0010 

0.0018 

0.0030 

0.0050 

0.0079 

0.0120 

0.0177 

0.0254 

0.0355 

0.0485 

0.0647 

0.0846 

0.1086 

0.1368 

0.1694 

0.2064 

0.2476 

0.2926 

0.3408 

0.3914 


BRIUM  COMPOSITION 


W 

GM/GM-MOLE 

2,01626 

2,01626 

2.01626 

2.01626 

2.01626 

2,01626 

2.01626 

2.01626 

2.01626 

2.01626 

2,01626 

2.01626 

2.01626 

2.01626 

2,01625 

2,01624 

2.01621 

2.01615 

2.01601 

2,01574 

2,01527 

2,01447 

2,01319 

2.01122 

2,00831 

2,00415 

1.99839 

1,99062 

1.98043 

1.96738 

1.95101 

1,93094 

1.90681 

1,87837 

1.84548 

1.80818 

1,76666 

1,72131 

1.67274 

1.62171 


10000  RHO 
GM/CM3 

16.2421 

12,1934 

8.1413 

6.1128 

4.8943 

4.0811 

3,4998 

3.0635 

2.7239 

2.4521 

2,2297 

2.0442 

1.8872 

1.7526 

1.6359 

1.5338 

1.4437 

1.3635 

1.2917 

1.2270 

1.1684 

1,1149 

1.0658 

1.0204 

0.9782 

0.9387 

0.9014 

0.8658 

0.8317 

0.7987 

0.7666 

0.7350 

0.7038 

0.6730 

0.6423 

0.6119 

0.5817 

0.5519 

0.5226 

0.4940 
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HYDROGEN  PROPER! I ES-EQUI L 


P=  10.00  ATM 


T 

H 

S 

DEG  K 

CAL/GM 

CAL/GM-K 

150.0 

33934.1 

10.964 

200.0 

34090.6 

11.864 

300.0 

34425.6 

13.219 

400.0 

34770.0 

14.210 

500.0 

35116.7 

14.983 

600.0 

35463.7 

15.616 

700.0 

35812.0 

16.153 

800.0 

36161.8 

16.620 

900.0 

36514.4 

17.035 

1000.0 

36870.3 

17.410 

1100.0 

37230.1 

17.753 

1200.0 

37594.7 

18.070 

1300.0 

37964.4 

18.366 

1400.0 

38339.3 

18.644 

1500.0 

38719.4 

18.906 

1600.0 

39104.9 

19.155 

1700.0 

39495.7 

19.392 

1800.0 

39892.4 

19.619 

1900.0 

40295.6 

19.837 

2000.0 

40706.7 

20.047 

2100.0 

41127.6 

20.253 

2200.0 

41561.2 

20.454 

2300.0 

42011.5 

20.655 

2400.0 

42484.2 

20.856 

2500.0 

42986.0 

21.060 

2600.0 

43525.3 

21.272 

2700.0 

44112.3 

21.493 

2800.0 

44758.7 

21.728 

2900.0 

45477.8 

21.981 

3000.0 

46284.5 

22.254 

3100.0 

47194.6 

22.552 

3200.0 

48225.2 

22.880 

3300.0 

49394.2 

23.239 

3400.0 

50719.7 

23.635 

3500.0 

52219.3 

24.069 

3600.0 

53909.4 

24.545 

3700.0 

55804.0 

25.064 

3800.0 

57913.5 

25.627 

3900.0 

60243.2 

26.232 

4000.0 

62791.5 

26.877 
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BRIUM  COMPOSITION 


CP 

DH/DP 

CAL/GM-K 

CAL/GM-PSI 

3.042 

0.3202E-02 

3.219 

0,4807E-02 

3.421 

0,7834E-02 

3.463 

0.1029E-01 

3.462 

0.1209E-01 

3.478 

0.1332E-01 

3.485 

0.1409E-01 

3.511 

0.1452E-01 

3,542 

0.1469E-01 

3.577 

0.1469E-01 

3.622 

0.1458E-01 

3.670 

0.1440E-01 

3,723 

0.1417E-01 

3.775 

0.1386E-01 

3.828 

0.1332E-01 

3.881 

0.1212E-01 

3.936 

0.9368E-02 

3,998 

0.3289E-02 

4,069 

-0.9200E-02 

4.156 

-0.3308E-01 

4,267 

“0.7589E-01 

4.412 

-0.1484E-00 

4.605 

-0.2652E-00 

4.860 

-0.4454E-00 

5,191 

-0.7131E  00 

5.614 

-0.1098E  01 

6.146 

-0.1634E  01 

6.805 

-0.2361E  01 

7.603 

-0.3326E  01 

8.556 

-0.4578E  01 

9.675 

-0.6171E  01 

10.968 

-0.8159E  01 

12,444 

-0.1060E  02 

14,098 

-0.1355E  02 

15.923 

-0.1704E  02 

17.903 

-0.2111E  02 

20.008 

-0.2576E  02 

22.193 

-0.3097E  02 

24.400 

-0.3666E  02 

26.548 

-0.4268E  02 
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hydrogen  properties-equilibrium  composition 

p=  10,00  ATM 


T 

DEG  K 


DS/DT  DS/OP 

CAL/GM-<2  CAL/GM-K-PS I 


OMEGT 


OMEGO 


150,0 

200,0 

300,0 

400.0 

500,0 

600,0 

700,0 

800,0 

900,0 

1000,0 

1100,0 

1200,0 

1300,0 

1400,0 

1500.0 

1600,0 

1700,0 

1800.0 

1900,0 

2000,0 

2100,0 

2200,0 

2300,0 

2400.0 

2500,0 

2600,0 

2700,0 

2800,0 

2900,0 

3000,0 

3100,0 

3200,0 

3300,0 

3400,0 

3500,0 

3600,0 

3700.0 

3800.0 

3900.0 

4000,0 


0,2028E-01 

0.1609E-01 

0.1140E-01 

0.8657E-02 

0.6924E-02 

0.5796E-02 

0.4979E-02 

0.4389E-02 

0,3935E“02 

0.3577E-02 

0.3292E-02 

0,3059E-02 

0.2a64E-02 

0,2697E-02 

0.2552E-02 

0.2426E-02 

0.2316E-02 

0.2221E-02 

0,2l42E-02 

0.2078E-02 

0,2032E-02 

0,2005E-02 

0.2002E-02 

0.2025E-02 

0,2076E-02 

0,2159E-02 

0.2276E-02 

0.2430E-02 

0,2622E-02 

0,2852E-02 

0,3121E-02 

0,3428E-02 

0.3771E-02 

0,4146E-02 

0,4550E-02 

0.4973E-02 

0,5407E-02 

0.5840E-02 

0.6257E-02 

0,6637E-02 


-0,6738E-02 

-0.6728E~02 

-0.6716E-02 

“0.6709E-02 

-0,6705E-02 

“0,6703E-02 

-0.6702E-02 

-0.6701E-02 

-0.6701E-02 

-0.6701E-02 

-0.6701E-02 

-0.6701E-02 

-0.6701E-02 

-0.6701E-02 

-0.6702E-02 

-0.6703E-02 

“0.6704E-02 

-0,6708E-02 

-0,6714E-02 

-0.6727E-02 

-0.6747E-02 

-0,6781E-02 

-0.6833E-02 

-0.6910E-02 

-0.7019E-02 

-0.7169E-02 

-0,7371E-02 

-0,7636E-02 

•-0.7974E-02 

-0,8398E-02 

“0,8920E-02 

-0,9551E-02 

-0,1030E-01 

-0.1118E-01 

-0,1219E-01 

-0.1334E-01 

-0.1461E-01 

-0.1600E-01 

-0,1748E-01 

-0.1901E-01 


“0, 

-0. 

-0, 

-0. 

-0. 

-0.3206E-15 

-0, 1507E-12 

-0.1515E-10 

-0, 5449E-09 

-0,9545E-08 

-0.9910E-07 

-0.6951E-06 

-0,3605E“05 

-0, 1475E-04 

-0,4994E~04 

-0.1449E-03 

"•0.3704E-03 

-0.8516E-03 

-0,1791E-02 

~0.3492E-02 

-0.6381E-02 

-0.1102E-01 

-0, 1813E-01 

-0,2857E-01 

-0,4334E-01 

-0.6357E-01 

-0.9045E-01 

-0.1252E-00 

-0.1691E-00 

-0.2232E“00 

-0, 2884E-00 

-0.3654E-00 

-0,4543E-00 

~0,5549E  00 

-0,6659E  00 

-0,7857E  00 

-0,9114E  00 

-0,1039E  01 

-0.1164E  01 

-0.1282E  01 


0. 

0. 

0. 

0, 

0, 

0.3637E-17 

0.1989E-14 

0,2279E-12 

0.9197E-11 

0.1785E-09 

0.2034E-08 

0,1553E-07 

0,8704E--07 

0.3827E-06 

0,1385E-05 

0,4279E-05 

0,1160E-04 

0,28l8E-04 

0.6246E-04 

0.1280E-03 

0.2452E-03 

0.4430E-03 

0.7607E-03 

0.1249E-02 

0.1971E-02 

0,3003E-02 

0,4432E“02 

0,6357E-02 

0,8882E-02 

0.1211E-01 

0.1616E-01 

0.2112E-01 

0.2705E-01 

0,3401E-0l 

0.4199E-01 

0.5092E-01 

0.6066E-01 

0,7099E-01 

0.8160E-01 

0.9205E-01 
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HYDROGEN  PROPER! I ES-EQU I L I BR I UM  COMPOSITION 
P=  10,00  ATM 


T 

OEG  K 

SIGT 

SIGP 

ZETAT 

ZETAP 

150,0 

-0,3158E-02 

0.8419E-02 

-0,9323E-01 

0,2123E-01 

200,0 

-0,3559E»02 

0,7458E-02 

-0,1068E-00 

0,1775E-01 

300,0 

-0,3873E-02 

0.5948E-02 

-0,3007E-01 

0,1311E-01 

400,0 

-0,3819E-02 

0,4842E-02 

-0.2189E-01 

0,1014E-01 

500,0 

-0,3594E-02 

0,40l5E-02 

-0,1951E-01 

0,81l3E-02 

600,0 

-0,3302E-02 

0,3387E-02 

-0,1628E-01 

0,6679E-02 

700,0 

-0.2995E-02 

0.2903E-02 

-0,2522E-01 

0.5637E-02 

800,0 

-0,2700E-02 

0.2524E--02 

-0.3072E-01 

0,4863E-02 

900,0 

-0.2430E-“02 

0,2222E“02 

-0.3705E-01 

0.4272E-02 

1000,0 

-0,2187E--02 

0,1979E-02 

-0.4977E-01 

0.3811E-02 

1100,0 

-0,1974E-02 

0,1782E-02 

-0,5697E“01 

0,3442E-02 

1200,0 

-0.1788E-02 

0.1618E-02 

-0,6403E-01 

0,3142E-02 

1300,0 

-0,1627E-02 

0.1482E-02 

-0.6813E-01 

0,2894E-02 

1400,0 

-0,1490E-02 

0,1367E-02 

-0,7134E-01 

0,2694E-02 

1500,0 

-0,1373E-02 

0,1268E-02 

-0,7397E-01 

0,2549E-02 

1600,0 

-0,1274E-02 

0,1183E-02 

-0,7666E-01 

0 , 2483E“02 

1700,0 

-0,1192E-02 

0,1108E-02 

-0,8196E-01 

0,2544E-02 

1800,0 

-0,1124E-02 

0,1042E-02 

-0,9117E-01 

0,2803E-02 

1900,0 

-0,1069E-02 

0,9832E-03 

-0,1044E-00 

0,3351E-02 

20C0,0 

-0,1027E-02 

0,9298E-03 

-0,1227E-00 

0,4286E-02 

2100,0 

-0,9965E“03 

0,8809E“03 

-0.1456E-00 

0,5690E-02 

2200,0 

-0,9768E-03 

0,8357E-03 

-0,1783E-00 

O,7505E-O2 

2300,0 

-0,9677E“03 

0,7934E-03 

-0,2132E-*00 

0,9895E-02 

2400,0 

-0,9690E-03 

0,7536E-03 

-0,2461E-00 

0,1244E-01 

2500,0 

-0,9802E-03 

0,7158E-03 

-0,2723E-00 

0,1495E-01 

2600,0 

-O.lOOlE-02 

0,6795E-03 

-0.2889E-00 

0,1713E-01 

2700,0 

-0.1030E-02 

0.6444E-03 

-0,2937E-00 

0,1873E-01 

2800,0 

-0,1067E-02 

0.6103E-03 

-0,2847E-00 

0,1959E-01 

2900,0 

-0,1109E-02 

0,5770E-03 

-0,2639E-00 

0,1970E-01 

3000,0 

-0,1155E-02 

0,5443E-03 

-0,2344E-00 

0,1917E-01 

3100,0 

-0,1201E-02 

0,5120E-03 

-0.1995E-00 

0,1813E-01 

3200,0 

-0,1243E-02 

0.4801E-03 

-0,1641E-00 

0,1675E-01 

3300,0 

-0,1279E-02 

0.4485E-03 

-0.1264E-00 

0,1515E-01 

3400,0 

-0,1304E-02 

0,4171E-03 

-0,8973E-01 

0,1345E-01 

3500,0 

-0,1315E-02 

0,3860E-03 

-0,5491E-01 

0,1173E-01 

3600,0 

-0,1309E-02 

0,3552£-03 

-0,2213E-01 

0,1004E-01 

3700,0 

-0,1284E-02 

0,3247E-03 

0,8684E-02 

0,8381E-02 

3800,0 

-0,1239E-02 

0.2947E-03 

0,3685E-01 

0,6769E-02 

3900,0 

-0,1175E-02 

0,2654E-03 

0,6419E-01 

0,5182E-02 

4000,0 

-0,1093E-02 

0,2369E-03 

0,9065E-01 

0,3612E-02 
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HYDROGEN  PROPER! I ES-EQU I L I BR I UM  COMPOSITION 


P=  10.00  ATM 

T  GAMMA  1000  MU  1000  LAMBDA 

deg  K  GM/CM-SEC  CAL/CM-SEC-K 


150.0 

1.512 

200.0 

1.468 

300.0 

1.424 

400.0 

1.412 

500.0 

1.409 

600.0 

1.405 

700.0 

1.402 

800.0 

1.397 

900.0 

1.391 

1000.0 

1.385 

1100.0 

1.378 

1200.0 

1.371 

1300.0 

1.364 

1400.0 

1.357 

1500.0 

1.350 

1600.0 

1.343 

1700.0 

1.337 

1800.0 

1.330 

1900.0 

1.323 

2000.0 

1.316 

2100.0 

1.307 

2200.0 

1.297 

2300.0 

1.286 

2400.0 

1.274 

2500.0 

1.260 

2600.0 

1.246 

2700.0 

1.233 

2800.0 

1.220 

2900.0 

1.208 

3000.0 

1.198 

3100.0 

1.189 

3200.0 

1.182 

3300.0 

1.177 

3400.0 

1.173 

3500.0 

1.171 

3600.0 

1.170 

3700.0 

1.169 

3800.0 

1.170 

3900.0 

1.172 

4000.0 

1.174 

0.0554 

0.2488 

0.0680 

0.3216 

0.0900 

0.4505 

0.1091 

0.5535 

0.1266 

0.6426 

0.1429 

0.7290 

0.1584 

0.8101 

0.1732 

0.8925 

0.1874 

0.9745 

0.2000 

1.0476 

0.2127 

1.1302 

0.2251 

1.2147 

0.2373 

1.3014 

0.2494 

1.3894 

0.2613 

1.4790 

0.2732 

1.5707 

0.2849 

1.6656 

0.2966 

1.7668 

0.3082 

1.8781 

0.3198 

2.0052 

0.3314 

2.1563 

0.3430 

2,3428 

0.3547 

2,5795 

0.3665 

2.8832 

0.3784 

3.2734 

0.3905 

3.7718 

0.4027 

4.4025 

0.4153 

5,1897 

0.4281 

6.1565 

0.4413 

7,3240 

0.4548 

8,7093 

0.4687 

10.3238 

0.4830 

12.1727 

0.4976 

14,2463 

0.5123 

16,5231 

0.5270 

18.9655 

0.5415 

21.5175 

0.5555 

24.1033 

0.5687 

26.6302 

0.5808 

28.9857 

PR 


0.6776 

0.6807 

0.6831 

0.6828 

0.6820 

0.6817 

0.6813 

0.6812 

0.6812 

0.6828 

0.6814 

0.6801 

0.6789 

0.6776 

0.6764 

0.6750 

0.6733 

0.6710 

0.6677 

0.6628 

0.6558 

0.6460 

0.6332 

0.6177 

0.6000 

0.5811 

0.5622 

0.5445 

0.5287 

0.5155 

0.5053 

0.4980 

0.4938 

0.4924 

0.4937 

0.4975 

0.5035 

0.5115 

0.5211 

0.5319 
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TABLE  A-3 


hydrogen  properties-equilibrium  composition 


P=100.00 

ATM 

T 

Z 

XB 

W 

10000  RH( 

DEG  K 

GM/GM-MOLE 

GM/CM3 

150.0 

1.0849 

0. 

2.01626 

150.9813 

200.0 

1.0751 

0. 

2.01626 

114.2643 

300.0 

1.0598 

0. 

2.01626 

77.2759 

400.0 

1.0487 

0. 

2.01626 

58.5753 

500.0 

1.0403 

0. 

2.01626 

47.2358 

600.0 

1.0340 

0. 

2.01626 

39.6039 

700.0 

1.0291 

0.0000 

2.01626 

34.1070 

800.0 

1.0253 

0.0000 

2.01626 

29.9547 

900.0 

1.0223 

0.0000 

2.01626 

26.7053 

1000.0 

1.0198 

0.0000 

2.01626 

24.0922 

1100.0 

1.0178 

0.0000 

2.01626 

21.9447 

1200.0 

1.0162 

0.0000 

2.01626 

20.1484 

1300.0 

1.0148 

0.0000 

2.01626 

18.6236 

1400.0 

1.0137 

0.0000 

2.01626 

17.3131 

1500.0 

1.0127 

0.0000 

2.01626 

16.1746 

1600.0 

1.0118 

0.0000 

2.01625 

15.1765 

1700.0 

1.0111 

0.0000 

2.01625 

14.2942 

1800.0 

1.0104 

0.0000 

2.01622 

13.5088 

1900.0 

1.0098 

0.0001 

2.01618 

12.8050 

2000.0 

1.0093 

0.0002 

2.01610 

12.1707 

2100.0 

1.0088 

0.0003 

2.01595 

11.5959 

2200.0 

1.0084 

0.0006 

2.01569 

11.0724 

2300.0 

1.0079 

0.0010 

2.01529 

10.5933 

2400.0 

1.0076 

0.0016 

2.01466 

10.1527 

2500.0 

1.0072 

0.0025 

2.01374 

9.7457 

2600.0 

1.0068 

0.0038 

2.01241 

9.3680 

2700.0 

1.0065 

0.0056 

2.01057 

9.0158 

2800.0 

1.0062 

0.0081 

2.00808 

8.6858 

2900.0 

1.0059 

0.0114 

2.00479 

8.3752 

3000.0 

1.0056 

0.0156 

2.00054 

8.0813 

3100.0 

1.0053 

0.0209 

1.99515 

7.8018 

3200.0 

1.0050 

0.0276 

1.98845 

7.5347 

3300.0 

1.0047 

0.0357 

1.98026 

7.2783 

3400.0 

1.0044 

0.0455 

1.97041 

7.0309 

3500.0 

1.0042 

0.0571 

1.95872 

6.7912 

3600.0 

1.0040 

0.0706 

1.94505 

6.5580 

3700.0 

1.0037 

0.0863 

1.92928 

6.3304 

3800.0 

1.0035 

0.1041 

1.91130 

6.1077 

3900.0 

1.0033 

0.1242 

1.89105 

5.8892 

4000.0 

1.0031 

0.1466 

1.86852 

5.6746 

TABLE  A-3  CONT* 


HYDROGEN  PROPERTIES-EQUIL IBRIUM  COMPOSITION 


P=100.00 

ATM 

T 

H 

S 

CP 

DH/DP 

DEG  K 

CAL/GM 

CAL/GM-K 

CAL/GM-K 

CAL/GM-PSI 

150.0 

33938,3 

8.650 

3.084 

0.3202E-02 

200.0 

34096.9 

9.561 

3.261 

0.4807E-02 

300.0 

34436.0 

10,933 

3,458 

0.7834E-02 

400.0 

34783,6 

11.933 

3.491 

0.1029E-01 

500.0 

35132.7 

12.712 

3,482 

0.1209E-01 

600.0 

35481,4 

13,347 

3,491 

0.1332E-01 

700.0 

35830,6 

13.886 

3.493 

0.1409E-01 

800.0 

36181,0 

14.354 

3,515 

0,1452E-01 

900.0 

36533.8 

14,769 

3.543 

0.1469E-01 

1000.0 

36889,7 

15,144 

3,576 

0.1469E-01 

1100.0 

37249,4 

15,487 

3,620 

0,1458E-01 

1200.0 

37613,8 

15.804 

3.668 

0.1440E-01 

1300.0 

37983,1 

16,099 

3.720 

0.1420E-01 

1400.0 

38357.7 

16.377 

3.772 

0.1399E-01 

1500.0 

38737.6 

16.639 

3,824 

0.1380E-01 

1600.0 

39122,6 

16.888 

3.876 

0.1362E-01 

1700.0 

39512,8 

17,124 

3.928 

0.1345E-01 

1800.0 

39908,2 

17,350 

3.980 

0.1322E-01 

1900.0 

40308,9 

17,567 

4,035 

0.1285E-01 

2000.0 

40715,3 

17.775 

4,093 

0.1218E-01 

2100.0 

41127,7 

17.976 

4,157 

0.1098E-01 

2200.0 

41546,9 

18.171 

4,229 

0.8895E-02 

2300,0 

41973,9 

18.361 

4,315 

0.5468E-02 

2400,0 

42410.5 

18.547 

4.420 

0.8654E-04 

2500,0 

42858,7 

18.730 

4,547 

-0.8020E-02 

2600,0 

43320.9 

18.911 

4.702 

-0.1979E-01 

2700,0 

43800.1 

19.092 

4.890 

-0.3633E-01 

2800.0 

44300.1 

19.274 

5,118 

-0.5894E-01 

2900,0 

44824,9 

19.458 

5.389 

-0.8908E-01 

3000,0 

45379,2 

19.646 

5,708 

-0.1284E-00 

3100.0 

45968.0 

19.839 

6.080 

-0,1786E-00 

3200.0 

46596.6 

20.039 

6.506 

-0.2415E-00 

3300,0 

47270,9 

20.246 

6.995 

-0.3193E-00 

3400.0 

47997,0 

•  20.463 

7.543 

-0.4140E-00 

3500,0 

48781,1 

20.690 

8.154 

-0,5276E  00 

3600,0 

49629,2 

20.929 

8,827 

-0.6624E  00 

3700.0 

50547,7 

21.181 

9.560 

-0.8202E  00 

3800,0 

51542,6 

21.446 

10.353 

-0.1003E  01 

3900.0 

52619.9 

21.726 

11.206 

-0.1213E  01 

4000,0 

53785,1 

22.021 

12.111 

-0.1450E  01 
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TABLE  A-3  CONT. 


HYDROGEN  PROPER! I ES-EQUI LI BR I UM  COMPOSITION 


P=100.00  ATM 


T 

DS/DT 

DS/DP 

OMEGT 

DEG  K 

150.0 

CAL/GM-K2  CAL/GM-K-PSI 

0.2056E-01  -0.7058E-03 

-0. 

200.0 

0.1631E-01 

-0.6965E-03 

-0. 

300.0 

0.1153E-01 

-0.6842E-03 

-0. 

400  .0 

0.8727E-02 

-0.6771E-03 

-0. 

500.0 

0.6963E-02 

-0.6730E-03 

-0. 

600.0 

0.5818E-02 

-0.6708E-03 

-0.1014E-15 

700.0 

0.4990E-02 

-0.6696E-03 

-0.4765E-13 

800.0 

0.4394E-02 

-0.6690E-03 

-0.4791E-11 

900.0 

0.3936E-02 

-0.6688E-03 

-0.1723E-09 

1000.0 

0.3576E-02 

“0.6688E-03 

-0.3018E-08 

1100.0 

0.3291E-02 

-0.6689E-03 

-0.3134E-07 

1200.0 

0.3057E-02 

-0.6691E-03 

-0.2198E-06 

1300.0 

0.2862E-02 

-0.6692E-03 

-0.1140E-05 

1400.0 

0.2694E-02 

-0.6694E-03 

—0 . 4665  E—05 

1500.0 

0.2550E-02 

-0.6695E-03 

-0.1579E-04 

1600.0 

0.2423E-02 

-0.6696E-03 

-0.4583E-04 

1700.0 

0.2310E-02 

-0.6697E-03 

-0.1171E-03 

1800.0 

0.2211E-02 

-0.6699E-03 

-0.2693E-03 

1900.0 

0.2124E-02 

-0.6701E-03 

-0.5664E-03 

2000.0 

0.2047E-C2 

-0.6704E-03 

-0.1105E-02 

2100.0 

0.1979E-02 

-0.6710E-03 

-0.2019E-02 

2200.0 

0.1922E-02 

-0.6720E-03 

-0.3488E-02 

2300.0 

0.1876E-02 

-0.6735E-03 

-0.5740E-02 

2400.0 

0.1842E-02 

--0.6758E-03 

-0.9050E-02 

2500.0 

0.1819E-02 

-0.6791E-03 

-0.1374E-01 

2600.0 

0.1808E-02 

-0.6837E-03 

-0.2019E-01 

2700.0 

0.1811E-02 

-0.6899E-03 

-0.2878E~01 

2800.0 

0.1828E-02 

-0.6981E-03 

-0.3996E-01 

2900.0 

0.1858E-02 

-0.7087E-03 

-0.5416E-01 

3000.0 

0.1903E-02 

-0.7220E-03 

-0.7184E-01 

3100.0 

0.1961E-02 

-0.7385E-03 

-0.9342E-01 

3200.0 

0.2033E-02 

-0.7585E-03 

-0.1193E-00 

3300.0 

0.2120E-02 

-0.7824E-03 

-0.1499E-00 

3400.0 

0.2219E-02 

-0.8106E-03 

-0.1854E-00 

3500.0 

0.2330E-02 

-0.8436E-03 

-0.2261E-00 

3600.0 

0.2452E-02 

-0.8815E-03 

-0.2721E-00 

3700.0 

0.2584E-02 

-0.9247E-03 

-0.3234E-00 

3800.0 

0.2725E-02 

-0.9735E-03 

-0.3799E-00 

3900.0 

0.2873E-02 

-0.1028E-02 

-0.4412E-00 

4000.0 

0.3028E-02 

-0.1088E-02 

-0.5069E  00 

OMEGP 


0. 

0. 

0. 

0. 

0. 

0.1150E-17 

0t6290E-15 

0.7207E-13 

0.2908E-11 

0.5646E-10 

0.6432E-09 

0.4910E-08 

0.2752E-07 

0.1210E-06 

0.4380E-06 

0.1353E-05 

0.3667E-05 

0.8912E-05 

0.1975E-04 

0#4048E-04 

0.7755E-04 

0.1402E-03 

0.2408E-03 

0.3957E-03 

0.6251E-03 

0.9536E-03 

0.1410E-02 

0.2028E-02 

0.2844E-02 

0.3899E-02 

0.5234E-02 

0.6895E-02 

0.8924E-02 

0.1136E-01 

0.1426E-01 

0.1763E-01 

0.2153E-01 

0.2595E-01 

0.3091E-01 

0,3641E-01 
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TABLE  A-3  CONT, 


HYDROGEN  PROPER! I ES-EQUI L I BR I UM  COMPOSITION 
P*100.00  ATM 


T  SIGT 

DEG  K 


SI6P  ZETAT 


ZETAP 


150,0 

200,0 

300,0 

400,0 

500,0 

600,0 

700,0 

800,0 

900,0 

1000,0 

1100,0 

1200,0 

1300,0 

1400,0 

1500,0 

1600,0 

1700,0 

1800,0 

1900,0 

2000,0 

2100,0 

2200,0 

2300,0 

2400,0 

2500,0 

2600,0 

2700,0 

2800,0 

2900,0 

3000,0 

3100,0 

3200,0 

3300,0 

3400,0 

3500,0 

3600,0 

3700,0 

3800,0 

3900,0 

4000,0 


-0,2936E-01 

-0,3335E“01 

-0,3676E-01 

-0,3660E-01 

-0,3469E-01 

-0,3204E-01 

-0,2919E-01 

-0.2640E-01 

-0,2382E~01 

-0,2149E-01 

-0,1943E“01 

-C,1762E-01 

-0,1606E-01 

-0,1472E-01 

-0,1357E-01 

-0,1260E-01 

-0.1179E-01 

-0,1111E-01 

-0,1056E-01 

-0,1011E-01 

-0,9748E-02 

-0,9469E-02 

-0,9257E-02 

-0,9104E-02 

-0,8997E“02 

-0,8928E-02 

-0,8888E-02 

-0,8866E-02 

-0,8855E-02 

-0,8844E~02 

-0,8825E-02 

-0,8790E-02 

-0,8731E-02 

-0,8640E-02 

-0,8511E-02 

-0,8339E-02 

-0,8120E-02 

-0,7850E-02 

-0,7527E-02 

-0,7148E-02 


0.7826E-01 

0,6989E-01 

0,5646E-01 

0,4639E“01 

0,3875E-01 

0,3287E-01 

0,2829E-01 

0.2468E-01 

0,2179E-01 

0,1945E-01 

0.1753E-01 

0,1595E-01 

0.1462E-01 

0.1350E-01 

0,1254E-*01 

0,1170E-01 

0,1097E-01 

0,1033E-01 

0.9748E-02 

0,9224E-02 

0,8745E-02 

0,8304E-02 

0.7894E-02 

0,7511E-02 

0,7151E-02 

0,68l0E-02 

0,6486E-02 

0,6179E“02 

0.5886E-02 

0,5608E“02 

0,5344E-02 

0,5094E-02 

0,4857E-02 

0,4634E~02 

0,4426E-02 

0.4233E-02 

0,4055E-02 

0,3892E-02 

0,3746E“02 

0,3616E-02 


-0,2008E-00 
-0,2l29E-00 
-0,1243E-00 
-0,1063E“00 
-0,9329E-01 
-0,7994E-01 
-0.7997E-01 
-0,7801E-01 
-0,7822E-01 
-0,8598E-01 
-0,8924E-01 
-0,9318E-01 
-0,9475E-01 
-0,9575E-01 
-0,9609E-01 
-0,9583E-01 
-0,9674E-01 
-0,9918E-01 
-0,1023E-00 
-0,1066E-00 
-0,1113E“00 
-0,1233E-00 
-0,1372E“00 
-0,1524E-00 
-0,1682E-00 
-0, 1845E~00 
-0,2007E-00 
-0,2132E-00 
-0,2206E-00 
-0,2224E-00 
-0,2183E-00 
-0,2123E-00 
-0,1979E“00 
-0,1794E-00 
-0,1579E-00 
-0,1344E-00 
-0,1096E-00 
-0,8611E-01 
-0,6131E-01 
-0,3635E“01 


0,2035E-00 

0,1694E-'00 

0,1252E-00 

0,9739E-01 

0,7833E-01 

0,6479E-01 

0,5490E-01 

0,4752E-01 

0,4186E-01 

0,3742E-01 

0,3386E-01 

0,3094E-01 

0,2850E-01 

0,2640E-01 

0,2459E-01 

0,2300E-01 

0,2160E-01 

0,2039E-01 

0,1937E-01 

0,1857E-01 

0,1802E-01 

0,1775E-01 

0,1778E-01 

0,1812E-01 

0,1874E-01 

0,1960E-01 

0,2060E-01 

0,2163E-01 

0,2259E-01 

0,2337E-01 

0,2391E-01 

0,2417E-01 

0,2411E-01 

0,2378E-01 

0,2322E-01 

0,2247E-01 

0,2158E-01 

0,2062E-01 

0,1959E-01 

0,1856E-01 
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TABLE  A-3  CONT 


HYDROGEN  PROPER! I ES-EQU I L I BR lUM  COMPOSITION 


P=100,00  ATM 

T  GAMMA 

DEG  K 


1000  MU  1000  LAMBDA 
GM/CM-SEC  CAL/CM-SEC-K 


150.0 

1.823 

200.0 

1.716 

300.0 

1.598 

400.0 

1.544 

500.0 

1.514 

600.0 

1.490 

700.0 

1.474 

800.0 

1.458 

900.0 

1.445 

1000.0 

1.433 

1100.0 

1.421 

1200.0 

1.410 

1300.0 

1.399 

1400.0 

1.389 

1500.0 

1.380 

1600.0 

1.372 

1700.0 

1.364 

1800.0 

1.356 

1900.0 

1.349 

2000.0 

1.342 

2100.0 

1.335 

2200.0 

1.327 

2300.0 

1.320 

2400.0 

1.312 

2500.0 

1.303 

2600.0 

1.294 

2700.0 

1.285 

2800.0 

1.275 

2900.0 

1.265 

3000.0 

1.256 

3100.0 

1.247 

3200.0 

1.238 

3300.0 

1.231 

3400.0 

1.224 

3500.0 

1.218 

3600.0 

1.213 

3700.0 

1.209 

3800.0 

1.205 

3900.0 

1.203 

4000.0 

1.202 

0.0574 

0.2694 

0.0699 

0.3432 

0.0915 

0.4710 

0.1104 

0.5714 

0.1277 

0.6581 

0.1438 

0.7426 

0.1592 

0.8222 

0.1739 

0.9036 

0.1881 

0.9849 

0.2006 

1.0574 

0.2132 

1.1396 

0.2256 

1.2239 

0.2379 

1.3105 

0.2499 

1.3982 

0.2618 

1.4872 

0.2737 

1.5776 

0.2854 

1.6692 

0.2970 

1.7635 

0.3086 

1.8614 

0.3202 

1.9645 

0.3318 

2.0752 

0.3434 

2.1970 

0.3550 

2.3351 

0.3666 

2.4950 

0.3784 

2.6826 

0.3902 

2.9049 

0.4021 

3.1709 

0.4142 

3.4888 

0.4264 

3.8672 

0.4389 

4.3147 

0.4515 

4.8394 

0.4643 

5.4492 

0.4774 

6.1531 

0.4908 

6.9547 

0 .5044 

7.8580 

0.5182 

8.8648 

0.5322 

9.9746 

0.5464 

11.1840 

0.5606 

12.4890 

0.5749 

13.8783 

PR 


0.6575 

0.6646 

0.6721 

0.6747 

0.6755 

0.6760 

0.6761 

0.6764 

0.6766 

0.6784 

0.6773 

0.6762 

0.6752 

0.6742 

0.6733 

0.6724 

0.6715 

0.6704 

0.6690 

0.6672 

0.6646 

0.6610 

0.6560 

0.6495 

0.6414 

0.6315 

0.6202 

0.6076 

0.5942 

0.5806 

0.5672 

0.5544 

0.5427 

0.5323 

0.5234 

0.5159 

0.5101 

0.5058 

0.5030 

0.5017 
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COMPRESSIBILITY  FACTOR  FOR  NORMAL  HYDROGEN  FOR  TEMPERATURES 
FROM  ISO*  TO  4000* K 
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FIG  A-4‘-  ENTHALPY  OF  NORMAL  HYDROGEN  ASSUMING  EQUILIBRIUM  COMPOSITION 
FOR  TEMPERATURES  FROM  ISO*  TO  4000*K 


FIG.  A-6:  SPECIFIC  HEAT  OF  NORMAL  HYDROGEN  ASSUMING  EQUILIBRIUM 
COMPOSITION  FOR  TEMPERATURES  FROM  150*  TO  4000®  K 


T,  TEMPERATURE  CK) 

FI6.A-7:  (dH/dP)y  FOR  NORMAL  HYDROGEN  ASSUMING  EQUILIBRIUM  COMPOSITION 
FOR  TEMPERATURES  FROM  ISO*  TO  4000*  K 
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R6.  A-8:(dS/dT)p  FOR  NORMAL  HYDROGEN  ASSUMING  EQUILIBRIUM  COMPOSITION  FOR 
TEMPERATURES  FROM  ISO*  TO  4000*K 


(dS/dP)j  FOR  NORMAL  HYDROGEN  ASSUMING  EQUILIBRIUM  COMPOSITION 
FOR  TEMPERATURES  FROM  ISO*  TO  4000*  K 


FOR  TEMPERATURES  FROM  ISO*  TO  4000* K 


0.14 
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FIG.  A- 1 
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FIG.  A-I2>  Vj  FOR  NORMAL  HYDROGEN  ASSUMING  EQUILIBRIUM  COMPOSITION  FOR 
TEMPERATURES  FROM  ISO*  TO  4000*K 


0.20  ^ 
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T,  TEMPERATURE  ("K) 

FIG.  A-i5:  £p  FOR  NORMAL  HYDROGEN  ASSUMING  EQUILIBRIUM  COMPOSITION 
TEMPERATURES  FROM  150*  T04000*K 


TEMPERATURES  FROM  ISO*  TO  4000*K 
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7.  Description  of  Computer  Subroutine 

The  equations  listed  in  previous  sections  have  been  written 
in  Fortran  language  and  included  in  a  subroutine  which  was  writ¬ 
ten  for  use  on  an  IBM  709  or  7090.  The  Fortran  listing  of  this 
subprogram  is  presented  in  this  section.  A  description  of  the 
input,  output  and  method  of  calling  is  given  below. 

Hydrogen  Properties  Subroutine 

Purpose:  To  calculate  the  thermodynamic  properties,  the  partial 
derivatives  of  the  thermodynamic  properties  with  res¬ 
pect  to  temperature  and  pressure,  and  the  transport 
properties  of  normal  hydrogen  in  cgs  units. 

Input:  Temperature  (T)  —  (°K) - Range  —  I50  -  li-OOO 

Pressure  (P)  —  (PSIA)  -  Range  —  0.1  -  lk69 
A  -  6  X  40  matrix  of  coefficients  for  molecular  hydro¬ 
gen  equations 

B  -  6  X  4o  matrix  of  coefficients  for  atomic  hydro¬ 
gen  equations 

MARIE  -  integer  variable  determining  which  properties 
are  to  be  calculated 

JULIE  -  integer  variable  determining  which  type  of 
properties  are  to  be  calculated 

Output: 

1.  For  (marie)  negative  -  thermodynamic  properties  only 
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Molecular  weight  (W)  -  gm/cfm-mole 
Compressibility  factor  (Z)  -  dimensionless 
Density  (RHO)  -  gm/cm^ 

Enthalpy  (  H)  -  cal/gm 
Entropy  (  S)  -  cal/gm- °K 
Specific  heat  (CP)  -  cal/gm-°K 
Isentropic  exponent  (GAM)  -  dimensionless 

2.  For  (marie)  positive  one  (+l)  -  thermodynamic  proper¬ 

ties  listed  in  case  1  (MARIE  negative)  plus  the 
following  thermodynamic  property  derivatives: 

(3h/3p)^  -  (DHP)  -  cal/gm- psia 

2 

(5s/ST)p  -  (DST)  -  cal/gm-°K 
(Ss/3P)^  -  (DSP)  -  cal/gm-°K-psia 
(T/W)  (Sw/3T)p  -  (OMEGT)  -  dimensionless 
(P/W)  (SW/Sp)^  -  (OMEGP)  -  dimensionless 
(T/Z) (Sz/ST)p  -  (SIGT)  -  dimensionless 
(P/Z) (9z/Sp)^  -  (SIGP)  -  dimensionless 
(T/y) (S7/9T)p  -  (ZETAT)  -  dimensionless 

(P/7)(^7/Sp),j,  _  (zetap)  -  dimensionless 

3.  For  (MARIE)  zero  (o)  -  thermodynamic  properties  listed 

in  case  1  (MARIE  negative)  plus  the  following 
transport  properties: 

Viscosity  -  (EMU)  -  gm/cm-sec 


Thermal  conductivity  -  (CLAM)  -  cal/cm-sec-°K 
Prandtl  number  -  (PR)  -  dimensionless 
h.  For  (marie)  positive  two  (+2)  -  all  the  properties 
listed  in  cases  1,  2,  and  3. 

5.  Effect  of  the  value  of  JULIE 

a.  For  (JULIE)  positive  two  (+2)  -  properties 
include  effects  of  compressibility  (Z  ^  l.O) 
and  effects  of  dissociation. 

b.  For  (JULIE)  positive  one  (+1)  -  properties  include 
effects  of  compressibility  (Z  l.O)  but  do  not 
include  effects  of  dissociation  (molecular  hydro¬ 
gen  only), 

c.  For  (JULIE)  negative  one  (-1)  -  properties 
do  not  include  effects  of  compressibility 
(Z  =  1.0)  or  of  dissociation  (molecular 
hydrogen  only). 

d.  For  (JULIE)  negative  two  (-2)  -  properties 
do  not  include  effects  of  compressibility 

(Z  =  l.O)  but  do  include  effects  of  dissociation. 

ENTRANCE:  CALL  PROPS  (T,  P,  A,  B,  MARIE,  JULIE,  W,  Z,  RHO, 

H,  S,  CP,  GAM,  DHP,  DST,  DSP,  OMEGT,  OMEGP,  SIGT, 
SIGP,  ZETAT,  ZETAP,  EMU,  CLAM,  PR) 
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Following  the  program  listing  is  a  listing  of  the  matrices 
A  and  B.  The  elements  of  the  matrices  are  arranged  such  that 
each  row  of  the  matrix  takes  up  two  lines  of  print.  The  elements 
of  the  first  three  columns  being  in  the  first  line  and  the 
elements  of  the  last  three  columns  being  in  the  second  line. 
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listing  of  hydrogen  properties  subroutine 


390 

4C0 

410 

440 


LIST 

LABEL 

HYDROGEN  PROPERTIES 


dimension  A(6,40),a(6,40r^^ 


S » CP  I GAM  I OHPtOSTt OS 


442 

444 

448 


THERMODYNAMIC  PROPERTIES 

R=1.9a59 

R8ARa82«0618 

PSI«14,6959 

PA=P/PS1 

RRPsR/(RBAR#PSI  ) 

J-T/100. 

SAL-((A»4,J)*T/3.+A(3!j^j2!UTlAf2!jn^+itr 

SBET«(  fB(4,J)*T/3,+Bl3.J)/?MT*R7i’^  .  ^'“^’^LOGFIT) 

SCPa2,0*CPBET-CPAL 

FEaSH-2«Q#saET+SAU 

rc  JJABSFI JULIE)-l J  540»400»390 

IF  {82«0-FE)  400i400*410 

X8*0«0 

GO  TO  440 

Wal,Q0813#(2,o-XSI 

RW«R/W 

B0»2. 0637415 

61=0.28729449 

B2=-0,13125412E-01 

83=0.32781166E-03 

a4«-0,31587838E-05 

TR»T/100«0 

^ * ^^*TR*4.0+83#3.0 > »TR+B2*2»0)*Th+B1  1 

u3YkT-0  •  00000  I#  (  B4^^TR*24#0+B3*6*O) 

IF  (JULIE)  442*540.444 

BP=0.0 

GO  TO  448 

BP=0,01*(EXPFr-YP) j 
OBPTe-BP*DYPT 

02SPT=8P#( (0YPT#»2J-D2YPT)* 

2A»1,0+BP»PAA 

2*ZA/(XA+ZA»XB) 

RH0=PA»W/(RBAR»T#Z) 
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halr«hal-t*paa*dbpt 

H=RW*T»(XA»HALR+XB*HBET) 

SWRA«SAL-LOGF«PAA) 

SWRAR»SWRA-PAA*(BP+T*DBPT J 
IF  (X6)  450f450i460 
450  S=RW*XA*SWRAR 
GO  TO  490 

460  SWRB«SBET-LOGF(PA»XB) 

5=RW* ( XA*SWR AR+XB*SWRB ) 

490  OMEGP=XB»XA/(2.0-XB)»»2. 

0MEGT»-SH»0ME6P 

CPALR=CPAL-T«PAA* (2 »0*DBPT+T»02&PT ) 

CP=RW*  (  xa*cpalr+xb-»cpbet-omegt*shi 
V=1.0/RHO 

DX3T«-(2.0-XB)*0MEGT/T 

DXaP=-(2.0-XB)*0MEGP/P 

D2ATsPA*<XA*D8PT-BP#0XBT) 

D2APoPA*BP*(XA/P-0XBP) 

StGT*T»< (1.0-Z*XB»*DZAT-2»(2A-1.0)*DXBT)/2A 
S1GP*P*( (1.0-Z*XB»*DZAP-Z»(ZA-1.0)*DXaP)/2A 
0VT=V*( l.C-OMEGT+SIGT J/T 
DVP=-V*( l.O+OMEGP-SIGPI/P 

GAM*-( V**2 .0  I / ( RW*T* { DVP/RRP+T* t 0VT»*2 .0 ) /CP ) ) 

IF  tMARIE)  540*510*500 

THERMODYNAMIC  PROPERTY  DERIVATIVES 

500  DCOAL«(3.*A(4*J>»T+2.0*A(3*J))*T+AI2*J) 
0CP8ET»(3.*B(4*J)4T+2.0*B(3*J) )*T+B(2*J) 

DCPART«DCPAL-DXBT4ICPALR-CPAL)/XA-PAA*(2*0*OBPT+4.0*T»D2BPT+(T**2* 

10)*03BPTJ 

OHP»V*(OM£GT-SIGT>*RRP 

OST«CP/T 

OSP«(OHP-V*RRP>/T 

PXAXBal.0/XB-l*0/XA+1.0/<2.0-XB» 

D2XBTbDXBT4( SCP/ ( T*SH)-2.0/T+OXBT*PXAXB) 
D2XBP«DXBP*(-1.0/P+0XBP*PXAXB) 

02XBTP=0XBP*DXBT»PXAXB 

D2ZAT=PA*(XA»D2BPT-2.0*DBPT*DXBT-BP*D2XBT» 

D2ZAP=-PA»BP*(2.0<i'DXBP/P+D2XBP) 

D2ZATP=OZAT/P-PA*(08PT*DXBP+BP*02XBTPJ 

D2ZT=Z* (-2.0*Z*SIGT*(XB*D2AT+(ZA-1,0)*DXBT)/T+(1.0-2*XB)*02ZAT-Z*C 
12,0*DZAT»DXBT  +  (ZA-1,0)'»D2XBTI  )/2A 
D2ZP=Z*(-2.0»Z*SIGP*(XB*DZAP+(ZA-l,0)*DX8P)/P+( 1.0-2*xa)«02ZAP-2*f 
12.0*DZAP*DXBP+(ZA-1.0)*D2XBP) )/ZA 
D2ZTP=Z*5I6P*(SIGT/T-Z*(X8*DZAT+«ZA-1.0)*DXBT)/ZA)/P-OZAP*(2*SIGT/ 
1T+(2**2.0)*DXBT)/ZA+Z*( (1.0-Z*XB)*D2ZATP-Z*(DZAT*DXSP+(ZA-1.0)»D2X 
2BTP))/ZA 

DOMPP=-OMEGP*(2.0-3.0*XB)/{P*<2.0-X3I**2.0) 

DOMTP=DOMPP*OMEGT/OMEGP 

D0MPT=D0MTP*P/T 

D0MTT=-SH*D0MPT-(0MEGT+0MEGP*SCP)/T 

D2VT=DVT*( DVT/V-1.0 /T)+V»< S1GT*( 1.0-SI GT )/T+T«D2ZT/Z-00MTT)/T 
D2VP=+DVP*{DVP/V-1.0/P)+V*(SIGP*(1.0-SIGP) /P+P*D2ZP/Z-D0MPP|/P 
D2VTP=DVT»DVP/V+V*(T*D2ZTP/Z-SIGT*SIGP/P-D0MTP)/T 

DCPT=-CP*0MEGT/T+RW*(XA*DCPART+XB*DCPBET+(CPSET-CPALR)*DXBT-0MEGT* 

1(2.0*CP3ET-CPAL-SH)/T-SH»DOMTT» 

DCPP»-T*02VT*RRP 


A-78 


non  rt  r»  r»  r» 


GZET-DVP+T*«DVT»*2.0)«RRP/CP 

ZETAT—1.0+OMEGT+2.0*T*DVT/V-T*(D2VTP+DVT*«DVT*(1.0-T#DCPT/CP)+2«0 

1#T*D2VT)*RRP/CP)/GZET 

2ETAP«OMEGP+2.0*P*OVP/V-P*(D2VP+T*DVT*«2.0*02VTP-DVT*OCPP/CP)»RRP/ 

1CP)/6ZET 

C 

IF  (MARIE-1)  S40t540*510 

TRANSPORT  PROPERTIES 

510  BROX=PAA»(BP+ZA#(T*DBPT+BP) ) 

REMU=(  (-0.405*BROX+0.7557^^^BROX+0•175)^^BROX+l»0 
RCLAMa( (-0.204#BROX+0.5017)*BROX+0.575)#BROX+1»0 

IF  (T-1000.0)  530#520.520 

FOR  T  GREATER  THAN  1000  K 

520  TB»T/1000.0 

0M11AA=( ( (0,14623574E-01»TB-0. 18489490 
19)*TB+7. 0094541 

OM22AA=( ( (0.95071874E-02*TB-0. 10429573 
11 )#TB+7. 1123388 

OM22BB=( ( {0.16937599E-01*TB-0. 23119789 
1  l*TB+8. 5409494 

0M11AB=( ( {0.11138559E-01»TB-0. 15841870 
16)»TB+6. 0232023 

ASTAR=(  ( (-0.19584008E-03*TB+0«27802096E-02)»TB-0.15400604E-01)*TB+ 
10. 48876025E-01)*TB+1. 1989301 

BSTARs(  ({-0, 10633974E-03*T8+0. 1674745 1E-02)»TB-0.10818140E-01>*TB+ 
10.44253705E-01)»TB+l. 1649620 
GMU«0,026693*SQRTF(1«00813*T) 

EMUA>1.414214*GMU/0M22AA 
EMUB-GMU/OM22BB 
CLAM0A«3.69353#EMUA 
CLAM0B»7«38706»EMUB 
EMUA«EMUA*REMU 

DAAPA»0.002628*T»SQRTF(T/2.01626)/OM11AA 
DABPA*0. 00 1314#T*S0RTF( 3. 0*7/1.00813 )/0MllAB 
GH=164.1236*XA*XB*T/(3.02439*OABPA) 

HAA«1000.0*XA»*2/EMUA+GH»( 1.0+0. 3*ASTAR) 

HBB=1000.0*XB**2/EMUB+GH»( 1,0+1. 2*ASTAR) 

HAB=-GH*( 1.0-0. 6*ASTAR) 

EMU=<XA*»2/HAA+XB**2/HBB-(2.0*XA*XB»HAB)/(HAA*HBB))/tl,0-HAB**2/{ 
1HAA*HBB)) 

CLAMOA«CLAMOA*RCLAM 
GL=2.93846*XA*XB*T/0ABPA 

GLAA»-4000,0*XA**2/CLAMOA-GL*(36.25-3.0*BSTAR+8.0*ASTAR) 
GLBB=»-4000.0*XB*»2/CLAMOB-GL*(32.5-12.0*BSTAR+8.0*ASTAR) 
GLAB=2.0*GU*(13.75-3.0*BSTAR-4.0*ASTAR) 

CLAMO*-4.0*(XA*#2/GLAA+XB**2/GLBB-{2.0*XA»XB*GLAB)/(GLAA*GLBB) )/ 

1 ( 1 .0-GLAB**2/ ( GLAA*GUBB ) ) 

CLAMIA={0.0242#DAAPA/T»*(CPAL-2.5) 

CLAMIA»CUAMIA*RCLAM 

CLAMIxCLAMIA/d .0+(XB*DAAPA)/(XA»DABPA) ) 

CLAMR=( 0.0242»DABPA*SH#*2/T)*(XA*XB/(2.0-XB)**2) 
CLAM»CLAMO+CLAMI+CLAMR 
PR»CP*EMU/CLAM 
GO  TO  540 


)*TB+0. 9 1980880) *78-2.557394 
)  *TB+0. 45828 106 )*TB-1. 480823 
)*TB+1. 2626982) *78-3.6380257 
)*TB+0» 886 15205) *78-2.606318 
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P0<?  r  LESS  THAN  1000  K 
530  TSTAR*T/37.3 

^1'? 

CLAMO-0.  J6<5353E-02*EMUA*ZLAM3/ZMU3 
EMUA=EMUA#REMU 

clamo=clamo*rclam 

CLAMl  =  (0.0242^^DAAPA/T)*(CPAL-2.5» 
CLAMr=CLAMr#RCLAM 
CLAM=CLAM0+CLAMI 
EMU=EMUA/1000.0 
PR«CP*EMU/CLAM 
540  RETURN 
END 
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MATRIX  A 


+0,29892484E+01 

-0.83561287E-07 

+0.29892484E+01 

-0,S35612a7E-07 

+0.33332407E+01 

-0.5C'&12747E-08 

+0,333324C7E+01 

-C,50612747E-08 

+0.34590074E+ai 

-0.73994236E-09 

+0.34590074E+01 

-0.73994236E-09 

+0.340C7949E^01 

-0.28S05124E-12 

+0.348C7949E+01 

-C,288C5124E-12 

+C.343C7949E+01 

-0.28805124E-12 

+0.34719964E+01 

-0.63931C54E-1C 

+0.34719954E+01 

-0.6393  1Q54E-Iv3 

+0.34719964E+01 

-0.63931054E-10 

+  0.34789902E->01 

-0.15052076E-09 

+0.34789902E+01 

-0,15052076E-09 

+0.34789902E+01 

-0.15 .52C76E-09 

+0.347899G2E+01 

-C. 1505 2075 E-C9 

+0.35844555E+01 

-0.11389801E-09 

+  0.35S44555E-i-01 

-C.113898C1E-C9 

+0.35844555E+01 

-0.11389801E-09 

+0.35844555E+01 

-0.11389301E-C9 

+0.37594391E+01 

-0.64597C43E-10 

+0.37594391E+01 

-0.64597043E-10 

+G.37594391E+01 

-0.64597043E-10 


-0.41034770E-02 

+0.34011138E+05 

-0.41034770E-02 

+0.3401 1 130E+05 

-0.43245294E-03 

+0.33930261E+03 

-0.43245294E-03 

+0.33930261E+C5 

-Q.'l6560656E-03 

+C.33916394E+05 

-0. 16560656E-03 

+C.33916394E+C5 

— 0.80579160E— 04 

+0.339140eiE+C5 

-0.80579160E-04 

+0.33914081E+05 

-0.80579160E-C4 

+0.339140S1E+05 

-0.18114833E-03 

+0.33931405E+C5 

-0.18114833E-03 

+0.33931405E+C5 

-0.18114323E-03 

+0.33931405E+C5 

-0.31594629E-03 

+C.33942702E+C5 

-0.31594629E-03 

+C.33942702E+05 

— 0.31594629E— 05 

+0.33942702E+05 

-0.31594629E-03 

+0.339427C2E+05 

-C.34525690E-03 

+0.33S62783E+C5 

-0.34525690E-03 

+C.33862733E+05 

-C.34525690E-03 

+0. 338627S3E+05 

-0.34525690E-03 

+0.33862783E+05 

-0.28808338E-03 

+0.33655684E+05 

-0.28808338E-03 

+0.33655684E+05 

-0.28808338E-03 

+0.33655684E+05 


+0.44077218E-04 

-0.13244021E+01 

+0.44077218E-04 

-0.13244021E+01 

+0.39127728E-05 

-0.35720562E+01 

+0.39127728E-05 

-0.35720562E+01 

+0.91534690E-06 

-0.39817170E+01 

+0.91534690E-C6 

-0.39817170E+01 

+0.23165682E-06 

-0.41010320E+01 

+0.23165682E-06 

-0.4101032CE+01 

+0.23165682E-06 

-0.4101032CE+01 

+0.40466752E-06 

-0.40049763E+01 

+0.40466752E-06 

-0.40049763E+01 

+0.40465752E-06 

-0.40049763E+01 

+C.61678657E-06 

-0.39957133E+01 

+0.61678657E-06 

-0.39957133E+01 

+0.51678657E-06 

-0.39957133E+01 

+0.61678657E-06 

-0.39957133E+01 

+C.53527626E-05 

-0.46725704E+01 

+0.53527626E-06 

-0.46725704E+01 

+C.53527626E-06 

-0.46725704E+01 

+0.53527626E-06 

-0.46725704E+01 

+0.36483990E-06 

-0.59075858E+01 

+0.36483990E-06 

-0.59075858E+01 

+0.36483990E-06 

-0.59075858E+01 
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+  0.375^)4391  E  +  01 

-0.64397043E-  10 

+0,375«4391E+J1 

-0.645v7043F>10 

+  .:.395  4;'m',1  !'  +  ■..  1 

-0.:U&376aHE-i0 

+  0.395'''-4861E  +  ^  1 

-0.31637688E-1 0 

+  0,295C'4861E  +  01 

-C.316376n8E-10 

+0.39504861E+01 

-0.316376eeE-10 

+0.395C4861E+01 

-0.31537608E-10 

+C.395C4861E+01 

-0.31637688E-10 

+0.40151762E+01 

-C.27G17443E-10 

+0.40151762E+01 

-0.27017443E-10 

+0.40151762E+01 

-0.27017443E-10 

+0.40151762E+01 

-0.27017443E-10 

+C.40151762E+01 

-0.27017443E-1C 

+0.40151762E+C1 

-Q.27017443E-10 

+0,42539189E+01 

-0,130083C-9E-10 

+0.42539189E+01 

-0.10C08309E-10 

+0.42539189E+01 

-0.100033C9E-10 


-0.28808338E-03 

+0.33655b84E+05 

-0.28008333E-03 

+0.33555684E+05 

-0.2214C298E-03 

+0.33374923E+05 

-0.22140298E-C3 

+0.33374923E+05 

-0.22140298E-03 

+0.33374923E+05 

-0.22140298E-03 

+0.33374923E+05 

-0.22140298E-03 

+0.33374923E+05 

-0.22140298E-C3 

+0.33374923E+05 

-0.24731652E-03 

+0.33321518E+05 

-0.24731652E-03 

+0.33321516E+05 

-0.24731652E-03 

+0.33321516E+05 

-0.24731652E-03 

+0.33321516E+C5 

-0.24731652E-03 

+0.33321516E+05 

-0.24731652E-03 

+0.33321516E+05 

-0.15427069E-03 

+0.32788324E+05 

-0.15427069E-03 

+0.32788324E+05 

-0.15427069E-C3 

+0.32788324E+05 


+0.364e3990E-06 

-0.59075858E+01 

+0.36483990E-06 

-0.59C75858E+01 

+0.22523788E-06 

-0.73044520E+01 

+0.22523788E-06 

-0.73044520E+01 

+0.22523738E-06 

-0.73044520E+01 

+0.22523788E--06 

-0.73044520E+01 

+0.22523788E-06 

-0.73044520E+01 

+0.22523788E-06 

-0.73044520E+01 

+0.21223369E-06 

-0.7727521CE+01 

+0.21223369E-06 

-0.77275210E+01 

+0.21223369E-06 

-0.77275210E+01 

+0.21223369E--06 

~0.77275210E+01 

+0.21223369E-06 

-0.77275210E+01 

+0.21223369E-06 

-0.77275210E+01 

+0.10657981E-06 

-0.95972790E+01 

+0.10657981E-06 

-0.95972790E+01 

+0.10657981E-06 

-0.95972790E+01 
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MATRIX  H  ^ 


+  C,25.'-‘3116F  +  01 
+  C.141i5H863E->)9 
+  C.2  5j''-il  16E+j  1 
+0,1415a86?E-0o 
+0,2 71. /El  01 
-0,29554273E- 10 
+0,24995710E+ni 
-0.29584273E-10 
+  C .249007  17F  +  0  i 
-0, 17546524E-10 
+0.249907l7E+.n 
-0,  i75'i6524E-10 
+  r;,2499p465E  +  01 
-0.30921566E-11 
+0,24995465E+01 
-0.30921566E-11 
+C.24995465E+C1 
-0.30921566E-11 
+0.24989933E+01 
-0.294e5802E-ll 
+0,24989933E+01 
-0.29465a02E-ll 
+0,24989933E+01 
,29465SC2E-11 
.24999803E+01 
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APPENDIX  B 


HEAT  TRANSFER  AND  PRESSURE  -  DROP  CHARACTERISTICS 
FOR  THE  FLOW  OF  A  COMPRESSIBLE  GAS  IN  A  CONSTANT  AREA 

CHANNEL 

1.  Summary 

A  procedure  and  computer  program  for  calculating  the  heat 
transfer  and  pressure-drop  characteristics  for  the  flow  of  a 
real  compressible  gas  in  a  constant  area  channel  are  developed. 
The  particular  problem  for  which  the  program  was  developed  is 
that  of  deteimining  the  heat  transfer  characteristics  of  a  gas 
cooled  solid-core  reactor  such  as  would  be  used  in  a  nuclear 
rocket.  Consequently  the  prescribed  conditions  on  the  calcula¬ 
tions  are  oriented  to  this  particular  case. 

The  method  used  to  calculate  the  heat-transfer  and  friction 
characteristics  for  the  flow  is  patterned  after  the  method  of 
influence  coefficients  developed  by  Shapiro  and  Hawthorne  (S4) 
for  generalized  compressible  flow.  The  equations  are  developed 
here  for  a  fluid  which  is  not  a  perfect  gas  and  reduced  so  that 
only  one  variable  is  used  for  the  stepwise  calculation  along 
the  axis  of  the  channel. 

2.  Development  of  Fluid  Flow  Equations 

The  phenomena  taken  into  consideration  in  the  development 
of  the  fluid  flow  equations  are: 


1. 


Heat  addition  to  the  gas 

2.  Wall  shear  stress  (friction) 

3.  Gas  dissociation  and  its  effects  on  molecular 
weight  and  thermodynamic  properties 

The  following  assumptions  are  made: 

1.  The  flow  is  one-dimensional  and  steady 

2.  Changes  in  stream  properties  are  continuous 

3.  Cross  sectional  area  for  flow  is  constant 

4.  Mass  flow  rate  is  constant  . 

5.  The  fluid  obeys  the  equation  of  state  given  in 
Eq.  B-1. 

The  basic  relations  needed  to  develop  the  equations  for 

changes  in  the  stream  properties  along  the  axis  of  the  channel 

are  listed  below. 

The  equation  of  state  is; 

ZpRT 

P  =  — 

The  continuity  equation  is; 
w  =  pVA^ 

The  definition  of  the  Mach  number  is; 
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(B-1) 

(B-2) 

(B-3) 
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T  ~  w 


Similar  operations  on  Eq.  B-2  result  in: 


or 
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(B-13) 


Combining  Eqs.  B-3  and  B-4  and  performing  the  above  operations 
yields 


dV^  ^  dw 
+  "w 
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Defining: 
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Eqs.  B-7  through  B-9  can  then  be  written: 


dW 

“57 

II 

+ 

“P 

dZ 

dT 

dp 

Z 

-  CTq,  •-;j  + 

‘^P 

P 

dy 

7 

f.  dT 

-  ^T  f 

+ 
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(B-21) 

(B-22) 

(B-23) 


The  total  differential  of  the  enthalpy  can  be  written  as: 


dH  =  (|S)  dT  +  (||)  dp 


(B-24) 


By  definition: 
'P 


=_=  (i) 


(B-25) 


and  from  thermodynamic  relations  and  the  equation  of  state, 
Eq.  B-1,  it  can  be  shown  that: 


(B-26) 


or 


ZRT  -V 

'  Fvi  ‘“t  - 


(B-27) 

Using  Eqs.  B-Zk,  B-25,  and  B-27  and  noting  tdiat  the  shaft  work 


is  zero  the  energy  equation  can  be  written: 
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dQ  =  Cp  dT  +  ^  ^ 

Dividing  by  CpT  gives: 

^  ^  (“i  -  a )  ^  ^ 

P  p  ^  P  2c  T 

P 

The  coefficient  of  dV^ /V^  oan 

/V  can  be  rewritten  as: 

.,2  2 

JU,  -  1  M  (rRT/W^  1  O  T, 

20pT  2  -c^'  ’  i  4- 

p 

Defining: 

’I  -  g|- 

P 


the  energy  equation  can  now  bs  written: 
dQ  dT 

^  +  ZTi  Ca>^  .  a^)  ^  ^ 


yM^  dV^ 
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ae  wan  shear  stress  In  the  womentun.  equation  can  be  written 
in  terms  of  the  friction  factor: 


T  -  f  V 

w  -  ^-g" 


(B-33) 


The  hydraulic  diameter  of  the  coolant  channel  is: 


d  = 


I^g/ax  j 


(B-34) 
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Using  Eqs.  B-33  and  B-34  the  momentum  equation  can  be  written: 

£  pV^  4dx  ,,,,, 

-  dp  -  f  -g-  =  pVdV  (B-35) 


Noting  that; 

PW  M^yRT  P7M^ 
^  ZRT  W  Z 


(B-36) 


Then  Eq.  B-35  can  be  put  in  the  following  form: 


dp  7M 

p  2Z 


4fdx 

_g__  + 


dV^  . 

22-  -7  =  ° 


(B-37) 


Eqs.  B-11,  B-I3,  B-l4,  B-21,  B-22,  B-23,  B-32  and  B-37  are  eight 

relations  between  ten  variables,  namely 
dV^  dy  do  lifdx 

— 7}  Eight  of  the  variables  can  be  taken 

V  '  p"^  ° 

as  dependent  and  two  as  independent.  For  the  case  at  hand  tdie 

two  variables  taken  as  being  independent  are  and  . 

P 

The  eight  equations  are  linear  algebraic  relations  and  can 
be  solved  simply  in  principal  although  the  amount  of  manipulation 
is  large.  As  the  Mach  number  is  included  in  ttie  coefficients  of 
the  variables  it  is  desirable  to  solve  for  the  change  in  M  first. 


The  result  is; 


dM  T  dQ 

M  p 


i-f- 

2D  [ 


B  +  (1  +  tj/M  D)  J 


4fdx 
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where: 


=  (1-0^)  (1+^  )  +  ^  ^"^p  "  ^p^  ■  %  ^^"“t  ^T^ 


(B-39) 
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B  =  1  -  oJij,  -  +  2o^ 

D  =  1  -  ci^  +  c^j, 

E  =  1  +  0)  -  a 

P  P 


F  =  2  +  ai+t  -2a 
P  P  P 


C  =  1  -  rM^  (  I  -  tiD^  ) 


,  B  +  A 

j  =  - - - 
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(B-41) 

(B-42) 

(B-43) 

(B-H) 
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The  expressions  for  the  changes  in  the  other  variables  are  less 
complex.  For  the  static  pressure  and  temperature  they  are 


(B-2^6) 


properties  will  be  dependent  variables.  The  heat  transfer 


correlation  and  the  correlation  for  the  friction  factor  pro¬ 
vide  a  basis  for  relating  and 

P 

For  these  calculations  the  local  heat  transfer  coefficient 
is  calculated  from  an  empirical  correlation  due  to  Taylor  and 
Kirchgessner  (14).  This  particular  correlation  was  obtained 
for  high  ratios  of  the  wall  temperature  to  bulk  fluid  tempera¬ 
ture.  It  is  based  on  a  film  temperature  which  is  defined  as 


(B-48) 


The  correlation  itself  is  of  the  form 


Nu^  =  0.021  Re.  Pr.  (B-49) 

f  r  t 

where 

(B-50) 
(B-51) 

Prf  =  (B-52) 


PjVd 

Re  =“111 


The  correlation  for  friction  factor  is 
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For  these  calculations  representing  a  reactor  core  channel 
the  above  numbers  are  representative  of  the  worst  case  as  the 
gas  is  hydrogen  and  the  flow  is  always  subsonic  with  the  exit 
Mach  number  generally  less  than  0.5*  Consequently,  the  approx¬ 
imation  made  by  substituting  for  in  the  expression 

for  the  heat  flux  causes  very  little  error  in  this  case. 

The  heat  transfer  rate  in  Eq.  B-55  must  be  equal  to  tdie 
amount  of  heat  added  to  the  fluid  which  can  be  written 


(B-59) 


Combining  Eqs.  B-55  and  B-56  with  the  use  of  the  definl 

tions  of  Eqs.  B-50,  B-51,  and  B-52  results  in: 


dQ  = 


4dx 


0.081 


PfVd 


(B-60) 


By  noting  that 


"  ^Av'^  (B-61) 

where  is  evaluated  at  the  average  static  temperature  ’’av 
along  the  element  of  length  in  question  and  using  Eq.  B-53  for 
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f,  it  can  be 

shown 

that 

dQ 

4fdx 

0.021 

I  «  u  \0*8 

1 

c  T 
p  av 

d 

0.o46 

,pav  “tl 

0.4 
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or 
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dx 

To  determine  — ^  from  the  above  expression  the  wall 
temperature  must  be  known.  In  the  event  that  the  wall  tempera¬ 
ture  is  not  specified  as  constant  along  the  channel  then  some 
additional  quantity  must  be  specified.  If  either  the  wall 

temperature  or  the  heat  flux  distribution  is  given  as  a  ftinc- 

4fL 

tion  of  non-dimensional  length  along  with  a  value  of  — ^  or 
Ij  dx 

V  D  '  then  the  value  of  — 3—  can  be  determined.  The  latter 
d"^*  ° 

dx 

case  is  straightforward  for  the  calculation  of  — g—  although 

the  calculation  of  is  a  trial  and  error  process.  The  other 

case  with  T^^  given  as  a  function  of  x/L  results  in  a  trial 

dx 

and  error  calculation  for  — g— .  To  date  only  the  cases  of 
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constant  wall  temperature  and  known  heat  flux  distribution  have 
been  formulated  and  solved.  The  third  case  has  been  of  no 
interest  and  consequently  h^s  not  been  set  up. 

The  simplest  case  is  obviously  that  when  the  wall  tempera¬ 
ture  is  constant.  Then  no  trial  and  error  calculation  is  in- 

lj.f  dx 

vclved  for  the  determination  of  — ^  . 

When  the  heat  flux  distribution  is  given,  the  non-dimension- 
X  dix 

al  length  ^  and  consequently  ^  ,  the  change  from  the  last 
position,  are  obtained  for  a  given  value  of  Q/Q^^ 

Then 

Hfp  =  =  4  (.043)  (^)°‘'  (^,.)  (fi)  (b-64) 

d 

The  wall  temperature  is  then  determined  by  assuming  a  trial 
value,  calculating  the  film  temperature  and  all  the  film  proper¬ 
ties  and  then  solving  Eq.  B-63  for  If  the  calculated  value 

of  T^  does  not  agree  with  the  assumed  value  a  correction  is 
made  and  the  process  is  repeated. 

3.  Choice  of  Initial  Independent  Variables 

To  determine  all  the  fluid  properties  at  a  particular  lo¬ 
cation  it  is  necessary  to  know  two  independent  tliermod3mamic 
properties  and  one  property  describing  the  flow,  such  as  veloci¬ 
ty,  Mach  number,  or  flow  per  unit  area.  Consequently,  three 


pieces  of  data  must  be  given  at  the  channel  end  where  the  cal¬ 
culations  are  started.  The  calculations  can  be  performed  go¬ 
ing  either  in  the  same  direction  as  the  flow  or  in  the  opposite 
direction.  Some  condition  must  be  imposed  on  the  channel 
length  and  diameter  or  on  the  fluid  properties  at  the  channel 
end  where  the  calculations  are  to  be  stopped. 

The  present  program  has  been  written  so  that  the  stagna¬ 
tion  temperature,  stagnation  pressure,  and  flow  rate  per  unit 
area  are  to  be  specified  at  the  channel  end  where  calculations 
are  started.  The  stagnation  temperature  is  used  as  the  index 
in  the  stepwise  procedure  and  is  also  used  as  the  quantity  to 
determine  where  the  calculations  are  to  be  stopped. 

4,  Starting  Procedure 

For  a  given  initial  stagnation  temperature,  stagrnation 
pressure,  and  flow  rate  per  unit  area  it  is  necessary  to  calcu¬ 
late  the  initial  Mach  number  and  static  fluid  properties.  This 
is  done  in  a  trial  and  error  calculation  in  the  following  man¬ 
ner.  Initial  estimates  of  the  static  temperature  and  pressure 
are  made,  the  flow  rate  per  unit  area  and  entropy  corresponding 
to  these  values  are  calculated.  The  differences  between  these 
calculated  quantities  and  the  given  flow  rate  per  unit  area  and 
stagrnation  entropy  are  determined  and  corrections  are  made  to 
the  values  of  static  temperature  and  pressure.  This  process 
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is  repeated  until  the  corrections  in  static  temperature  and 
pressure  are  less  than  some  prescribed  limit.  The  initial 
estimates  for  static  temperature  and  pressure  are  obtained  from 
relationships  for  a  perfect  gas  or  empirical  approximations. 

For  a  perfect  gas  the  flow  rate  per  unit  area  can  be  expressed 
as  follows 


versus  Mach  number  where  a  value  of  I.3  is  assumed  for  7  and 
then  approximating  the  curve  by  two  straight  lines,  the  follow¬ 
ing  expressions  were  obtained 


’X’  ^ 

M  =  0.625  I  t  ■  0-® 

M  =-  1.5+  2.5  I  for  I  >  0.8 


(B-67) 

(B-68) 
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The  approximations  for  static  temperature  and  pressure  are  then 
obtained  from  the  perfect  gas  relations 


.1  + 


(B-69) 


h 
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=  1  + 


7- 


i  m")  ^ 


(B-70) 


The  flow  rate  per  unit  area  is  then  calculated  from 


ZRT  -  H) 


(B-71) 


where  the  properties  Z,  W,  and  H  are  evaluated  at  the  static 
conditions. 

Here  and  throughout  the  description  of  the  calculation  pro¬ 
cedure  it  is  assumed  that  the  thermod3mamic  and  transport  pro¬ 
perties  and  certain  derivatives  of  these  properties  are  deter¬ 
mined  when  the  pressure  and  temperature  are  known.  Actually 
these  properties  are  all  calculated  from  equations  using  pres¬ 
sure  and  temperature  as  the  independent  variables.  The  develop¬ 
ment  and  presentation  of  these  equations  is  shown  in  Appendix  A. 

The  values  of  corrections  to  static  temperature  and  pres¬ 
sure  are  obtained  from  the  expressions  for  the  two  total  deriv¬ 
atives 
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The  derivatives  of  w  /A^  are  obtained  by  differentiating 


Eq.  B-2. 

The  results  are: 


c 


1 


■  2CH^-HT 


(B-78) 


(B-79) 


Once  the  correct  static  properties  at  the  starting  condi¬ 
tion  are  determined  the  trial  and  error  procedure  using  the 
influence  coefficients  can  be  started. 

In  the  event  that  the  Mach  number  was  specified  ratdier 
than  tile  flow  rate  per  unit  area  the  correction  for  static 
temperature  and  pressure  would  be  similar  to  Eqs.  B-74  and  B-75 
with  the  derivatives  of  w/A  replaced  witdi  the  derivatives 
of  M. 


5.  Stepwise  Trial  and  Error  Procedure 

The  procedure  for  calculating  one  step  along  the  coolant 
channel  involves  the  solution  of  Eq.  B-38  written  in  terms  of 
finite  differences.  The  solution  is  a  trial  and  error  process 
because  the  coefficients  in  the  equations  for  the  changes  in 
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Mach  number,  temperature,  and  pressure  are  dependent  on  the 
temperature  and  pressure.  Consequently,  trial  values  are  as¬ 
sumed  for  the  change  in  fluid  temperature  and  pressure,  the 
changes  in  tiieoe  and  other  properties  are  calculated,  and  if 
the  calculated  values  do  not  agree  with  the  assumed  values 
the  procedure  is  repeated.  The  procedure  is  the  same  whether 
the  wall  temperature  or  the  heat  flux  distribution  is  given 
although  the  calculation  of  is  different  for  the  two 

cases  as  has  been  shown. 

6.  Calculation  of  the  Fluid  Stagnation  Properties  from  the 
Static  Properties  and  Fluid  Velocity. 

In  the  stepwise  procedure  the  values  of  the  stagnation 
properties  must  be  calculated  from  the  static  properties  and 
the  velocity  or  Mach  number  which  are  obtained  from  Eqs.  B-38, 
B-46,  and  B-47.  The  stagnation  properties  can  be  determined 
because  the  entropy  is, the  same  as  the  static  entropy  and  the 
stagnation  and  static  enthalpies  are  simply  related  to  the 
velocity. 


H 


=  H  +  ^ 


(B-80) 


Initial  guesses  for  the  stagnation  temperature  and  pressure 
are  obtained  from  Eqs.  B-69  and  B- 70  The  enthalpy  and  entropy 


B-19 


are  then  calculated  using  these  values.  Corrections  can  then 
be  made  to  the  temperature  and  pressure  if  necessary.  The 
expressions  for  the  total  derivatives  of  enthalpy  and  entropy 


can  be  solved  to  give; 

(||)t  ^  -  (||)t 

rsii 


AS 


at  = 


c  /dSx 


(B-81) 


and 


Ap 


AS 


fhS. 


where 


AS 

II 

CD 

CD 
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Ah 
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CO 

II 
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(B-82) 


(B-83) 

(B-8l^) 


If  AT  and  Ap  are  close  enough  to  zero  the  trial  and  error, 
process  is  halted  but  if  either  one  is  larger  than  some  pre¬ 
scribed  value  the  correction  is  added  to  the  last  value  and  the 
process  is  repeated. 


7.  Pressure  and  Temperature  Corrections  for  the  Stepwise  Trial 
and  Error  Procedure 
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After  the  stagnation  properties  have  been  calculated  from 
the  static  conditions  they  are  checked  against  the  values  as¬ 
sumed  at  the  beginning  of  the  step.  If  the  differences  be¬ 
tween  the  calculated  and  assumed  values  are  not  close  enough 
to  zero,  the  calculated  values  are  used  as  the  new  assumed  pro¬ 
perties  and  the  whole  step  is  recalculated.  This  simple  pro¬ 
cedure  converged  for  all  cases  that  were  calculated  and  in  the 
runs  which  were  checked  the  number  of  steps  required  was  quite 
small. 
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APPENDIX  C 


STRESS  CALCULATIONS 


1.  General 

The  model  used  to  determine  when  the  reactor  is  stress 
limited  is  an  annular  element  with  the  same  inside  diameter 
as  a  coolant  channel  in  the  core  and  the  same  void  fraction 
as  the  reactor.  The  general  thermal  stress  equations  of, an 
annular  element  in  plane  strain  are  (33): 


aE  1 
1"  V  ^  2 
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(C-3) 


The  temperature  is  assumed  to  be  symmetrical  about  the  axis 
and  variations  in  the  axial  direction  are  neglected  in  calculat¬ 
ing  the  local  stresses.  The  constant  C^  would  be  zero  for 
the  true  plane  strain  case  but  is  chosen  to  be  finite  here  so 
the  resultant  force  on  the  ends  of  the  element  is  zero.  This 
does  not  affect  the  radial  or  tangential  stresses  and  gives 
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rise  only  to  local  effects  at  the  ends.  The  boundary  conditions 
on  the  stresses  provide  the  information  required  to  evaluate 
the  constants  in  stress  equations.  Two  different  sets  of 
boundary  conditions  are  considered  in  the  following  sections. 

In  order  to  evaluate  the  stresses  it  is  necessary  to  know 
the  temperature  distribution  in  the  solid  material.  The  heat 
generation  rate  is  assumed  to  be  uniform  in  the  annular  ele¬ 
ment  and  the  outside  boundary  is  taken  to  be  adiabatic  as  the 
annulus  is  supposed  to  represent  a  unit  cell  of  the  reactor. 

The  heat  conduction  equation  for  an  axisymmetric  body 
with  uniform  heat  generation  and  negligble  temperature  gradi¬ 
ents  in  the  axial  direction  is 
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„  _  1  dT 
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or 


1  ^  . 
r  dr  '  dr  ' 
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The  double  integration  of  Eq.  C-5  yields 


Wi  2 

T  =  -  ^  r  C3_  inr  +  Cg 


(C-6) 


The  boundary  conditions  that  T  =  T^,  at  r  =  r.  and  dr  =  0 

W  1  . 
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at  r  =  r  are  sufficient  for  the  evaluation  of  C,  and  C_ . 

o  ±  c 

The  resulting  expression  for  the  temperature  difference  0  is 


(C-7) 


For  the  evaluation  of  the  local  stresses  the  integrral  of 
0rdr  evaluated  at  different  radii  is  required.  Straightforward 
integration  of  Eq.  C-7  multiplied  by  r  results  in 


After  evaluating  the  limits  and  simplifying 


If  the  integral  is  evaluated  between  r^  and  r^  rattier  than 


The  two  sets  of  boundary  conditions  on  the  stress  that 
were  investigated  are  different  at  the  outer  boundary  of  the 
annulus.  For  the  first  case  the  radial  stress  at  the  outer 
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boxandary  is  assumed  to  be  zero  while  for  the  second  case  the 
gradient  of  the  radial  stress  is  set  equal  to  zero.  For  both 
cases  the  radial  stress  at  the  inner  boundary  is  equal  to  the 
negative  value  of  the  local  fluid  pressure. 


and 


When  these  expressions  are  inserted  in  Eqs.  C-1  and  C-2  and  the 
resultincf  equations  are  simplified,  the  results  ai^i 


The  resultant  force  on  the  ends  of  the  element  is  to  be  zero 
For  this  case  the  constant  and  consequently  cr^  can  be  found  in 
the  following  manner.  The  integral  of  the  stress  over  area  of 
the  annulus  must  be  zero. 


(C-19) 
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Inserting  Eq.  C-3  and  integrating  yields 


2vEC^ 

(l+v}(l-2v} 


0  (C-20) 


The  term  in  the  square  bracket  is  just  +  ■= —  as  can  be 

^  J.— V 

seen  from  Eq.  C-3.  When  this  is  inserted  in  Eq.  C-20,  an  ex¬ 
pression  can  be  obtained  for  cr^  directly  without  soliving 
for  C^.  The  result  is 


(C-21) 


Eqs.  C-17,  C-l8,  and  C-21  are  the  three  equations  for  the 
local  stresses.  Using  Eqs.  C-7^  C-9#  and  C-10  to  eliminate  the 
temperature  and  the  integrals  and  noting  that  the  void  fraction 
is 

^  2 

V  =  (^)  (C-22) 

o 

the  equations  for  the  stresses  can  be  rewritten.  After  a  con¬ 
siderable  amount  of  algebraic  manipulation  the  results  are 
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The  worst  stresses  in  the  annular  element  occur  at  the  in¬ 
ner  radius  as  was  shown  in  Fig.  4-11.  If  Eqs.  C-2 3  through 
C-25  are  evaluated  at  the  inside  radius  the  expressions  can  be 
simplified  to  the  following: 


a  =  -P 
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do 

3.  Stress  Equations  when  =  0  at  r  =  r^ 


(C-26) 
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(C-28) 
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The  boundary  conditions  for  this  case  are: 
da^ 

(C-29) 
(C-30) 

Applying  these  boundary  conditions  to  Eq.  C-1  results  in  the 
following  two  equations  for  the  constants. 


dr 


=  0  at 


=  -p  at 


-P 


2aE 

'  L(l"V)r- 


1-2V 

r^ 

Grdr 

aE 

■  1-V 

© 

r 

19 

r.. 

(C-31) 
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r  =  r. 


If  Eq.  C-32  is  solved  for  Cg,  the  result  is 
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(C-33) 


Then 
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The  expression  for  a„  is  given  by  Eq.  C-25  as  it  was  for  the 
other  set  of  boundary  conditions. 

If  the  stresses  are  evaluated  at  tiie  inside  radius  of 
the  annulus  the  expressions  for  and  cr^  reduce  to 

‘^r  =  ’P  (C-39) 

OE  W.  r.^  „v^ 

*^6  =  “P  xiv 

V 

The  expression  for  a„  is  still  given  by  Eq.  C-28. 

Zt 

1|-.  Failure  Criteria 

The  different  failure  criteria  that  were  considered  for 
calculating  the  limiting  stesses  are  tdie  maximum  principal  stress, 
maximum  strain,  maximum  shear,  strain  energy,  and  distortion 
energy  theories.  The  expressions  relating  the  yield  point  stress 
in  pure  tension  to  the  principal  stresses  in  the  material  for 
the  different  theories  are  presented  here.  For  all  the  expres¬ 
sions,  the  magnitudes  of  the  principal  stresses  are  such  that 

The  different  theories  and  the  corresponding  expressions  are: 
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maximum  principal  stress  theory 


‘^YP  *^1  (C-42) 

maximum  strain  theory 

<7yp  =  *^3^  (C-43) 

maximum  shear  theory 

''yP  =  ^  ■  ^^3  (C-44) 

strain  energy  theory 

2  2  2  2 

Oyp  =  +  Cg  +  ^2  ~  *^2^3  ^1^3^  (^”^5) 

distortion  energy  theory 

‘^YP^  “  ■*■  ■*■  (C-46) 


For  both  sets  of  boundary  conditions  considered  in  tdie  previ¬ 
ous  sections  the  annular  element  is  loaded  such  that  it  is  a  case 
of  plain  strain.  Consequently,  the  principal  stresses  are  in 
the  directions  of  the  principal  axes.  At  each  axial  position 
the  stresses  can  be  compared  to  determine  the  correspondence 
between  a^,  Cq,  and  ct^^,  Cg,  cr^* 

For  an  ideal  brittle  material  (which  is  assumed  to  act 
elastically  until  fracture  occurs)  t±e  maximum  principal  stress 
theory  should  apply  (32).  For  actual  brittle  materials  the 
failure  is  related  to  the  flaws  in  tdie  material  and  none  of 
these  criteria  are  exactly  correct.  Other  failure  theories  for 
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brittle  materials  have  been  developed  by  Griffith  and  Weiball 
(29)  but  they  are  not  easily  applied  to  engineering  problems. 
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APPENDIX  D 


COMPUTER  PROGRAM  AND  SAMPLE  SOLUTION 

1.  Description  of  Program 

The  Fortran  program  presented  in  this  appendix  was  written 
for  use  on  an  IBM  709  or  7090.  The  calculations  for  the  dif¬ 
ferent  components  and  the  input/output  functions  are  in  general 
performed  with  the  use  of  separate  subroutines.  Consequently 
the  main  program  is  quite  short  although  some  of  the  subroutines 
are  quite  long.  Almost  all  of  the  important  variables  are 
stored  in  COMMON  storage  so  they  can  be  transmitted  implicitly, 
ratiier  than  explicitly,  from  the  main  program  to  the  subroutines 
This  use  of  COMMON  storage  simplifies  the  call  statements  for 
the  different  subroutines  and  enables  the  storage  area  in  tdie 
machine  to  be  shared  between  the  subprograms.  There  are  some 
differences  in  the  variables  appearing  in  COMMON  storage  in 
the  different  subroutines.  Dummy  variables  had  to  be  used  in 
some  cases  due  to  the  duplication  of  variable  names  for  differ¬ 
ent  variables.  Also  more  variables  are  inserted  in  COMMON  stor¬ 
age  in  some  subroutines  than  in  otdiers. 

The  calculations  for  most  of  the  components  are  carried 
out  using  engineering  units.  The  heat  transfer  and  pressure 
drop  characteristics  of  the  flow  tiirough  the  reactor  are  not 
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because  they  were  set  up  to  be  compatible  with  the  hydrogen 
properties  subroutine.  Consequently  the  variables  are  trans¬ 
formed  at  both  the  beginning  and  the  end  of  this  subprogram. 

The  units  of  tiie  input  and  output  variables  are  presented  in 
the  following  sections. 

The  use  of  separate  subroutines  for  different  component 
calculations  makes  the  program  quite  flexible.  If  it  is  desir¬ 
able  or  necessary  to  change  the  method  of  calculation  for  a 
particular  quantity  or  component  only  one  subroutine,  and  not 
the  complete  program,  must  be  modified  and  recompiled.  In  the 
process  of  debugging  the  program  this  proved  to  be  quite  help¬ 
ful.  The  purpose  of  the  separate  subroutines  and  a  brief  de¬ 
scription  of  each  one  is  presented  below. 

NRSYS 

This  is  the  main  program  used  to  unify  the  separate  subrou¬ 
tines.  The  data  required  for  the  calculation  of  the  hydrogen 
properties  is  read  from  cards  before  any  of  the  siabroutines 
are  called. 

READD 

This  subroutine  is  for  reading  the  data  required  for  a 
single  run  with  the  exception  of  any  data  required  to  specify 
the  shape  of  the  power  distribution.  Nine  data  cards  containing 
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values  for  31  variables  are  read  each  time  this  subroutine  is 
called. 

PRNTD 

The  data  which  were  read  with  with  READD  are  printed  and 
possibly  punched  on  cards  to  provide  a  check  on  the  values  of 
the  data  in  the  event  that  the  program  halts  before  the  execu¬ 
tion  of  the  complete  problem  is  completed. 

HT 

The  heat  transfer  and  pressure  drop  characteristics  for 
the  flow  of  hydrogen  through  the  reactor  are  calculated  in  this 
subroutine . 

In  addition  to  the  characteristics  of  the  hydrogen  flow, 
a  number  of  other  quantities  are  computed. ’  The  local  power 
density  in  the  reactor  core,  the  local  surface  temperature  of 
the  coolant  channel,  and  the  maximum  temperature  in  the  solid 
part  of  the  core  are  among  the  quantities  determined  as  a 
functions  of  the  nondimensional  length  of  the  reactor.  Any 
number  of  steps  less  than  200  can  be  used  for  the  iterative  cal 
culations.  The  hydrogen  properties  subroutine  PR{3PS  presented 
in  appendix  A  and  the  next  five  subroutines  described  below 
are  required  by  HT  for  different  computations. 
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When  the  shape  of  the  power  distribution  for  the  heat 
transfer  calculations  cannot  be  specified  by  an  analytic 
function,  it  is  necessary  to  use  tabular  values.  The  purpose 
of  this  subroutine  is  to  read  in  the  tabular  values  of  heat 
flux  or  power  density  along  with  the  corresponding  axial  posi¬ 
tion.  The  data  do  not  have  to  be  given  at  uniform  intervals 
of  axial  position  or  heat  flux.  After  the  data  have  been 
read  from  cards  both  the  heat  flux  and  the  length  are  nondi- 
mensionalized  for  use  in  further  computations.  Two  different 
forms  of  this  subroutine  are  listed  for  two  possible  ways  of 
having  the  tabular  data  presented  as  a  function  of  axial  posi¬ 
tion.  The  position  of  the  data  on  the  cards  is  not  restricted 
to  any  set  of  columns  as  the  format  statements  in  the  subrou¬ 
tines  are  variable. 

QDIST 

The  purpose  of  this  subroutine  is  to  obtain  the  value  of 
nondimens ional  reactor  length  that  corresponds  to  a  particular 
fraction  of  the  total  heat  addition  to  the  gas  for  a  given 
shape  of  power  distribution  in  the  reactor.  Two  different  sub¬ 
routines  are  presented  in  the  listing  of  the  program.  The  first 
one  is  for  a  chopped  sine  power  distribution  where  an  analytic 
function  is  used  to  relate  tiie  length  to  the  relative  heat  flux. 


The  second  routine  is  to  be  used  in  conjunction  with  Q0FX  when 
tabular  data  is  used  to  specify  the  shape  of  the  power  distribu¬ 
tion. 

PTC 

This  routine  is  used  to  make  corrections  in  the  initial 
estimates  of  the  static  properties  of  the  gas  for  the  principal 
trial  and  error  loop  in  the  stepwise  heat  transfer  calculations. 
This  procedure  has  remained  a  separate  subroutine  since  the  loop 
was  tested  for  convergence,  although  there  no  longer  is  any 
reason  for  it. 

G0FV 

This  routine  is  used  to  calculate  a  function  of  the  void 
fraction  used  in  HT  to  determine  the  solid  temperature  and 
the  power  density.  It  was  made  a  separate  subroutine  so  dif¬ 
ferent  spacings  and  geometries  of  the  coolant  channels  could  be 
considered  without  changing  the  heat  transfer  subroutine.  Only 
one  form  of  the  subroutine  for  the  location  of  coolant  channels 
on  the  vertices  of  equilateral  trianges  is  presented. 

SIMP 

This  subroutine  is  used  for  calculating  the  specific  im¬ 
pulse  that  can  be  obtained  by  expanding  the  gas  from  a  given 
stagnation  condition  to  a  given  nozzle  exhaust  pressure. 


PRHT 


The  results  which  are  obtained  in  HT  are  printed  using  this 
subroutine.  If  it  is  desired,  the  results  can  also  be  punched 
on  cards. 

ST 

The  stress  calculations  for  the  model  considered  to  be  a 
unit  cell  of  the  reactor  are  performed  using  the  equations 
presented  in  this  subroutine.  Both  the  principal  stresses  and 
their  relation  to  the  different  failure  criteria  are  determined. 

PRST 

The  results  calculated  in  ST  are  printed  and  possibly 
piinched  on  cards  with  the  use  of  this  subroutine. 

RCSW 

The  critical  size  and  weight  of  the  reactor  are  determined 
using  this  subroutine.  For  the  particular  form  of  the  routine 
which  is  listed  the  reactor  dimensions  are  assumed  to  be  known 
and  only  the  weights  of  the  core  and  reflector  are  calculated. 
Other  routines  where  the  critical  dimensions  are  determined 
from  reactor  physics  calculations  can  be  inserted  in  place  of 
the  simpler  one. 

PRRCSW 

The  dimensions  of  the  reactor  core  and  reflectors  along 
with  the  corresponding  weights  determined  with  the  use  of  RCSW 
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are  printed  and  possibly  punched  on  cards  using  this  subroutine. 


PRSH 

The  weight  and  thickness  of  the  pressure  shell  around  the 
reactor  are  determined  with  the  equations  in  this  subroutine. 

TP 

The  purpose  of  this  subroutine  is  to  obtain  values  for 
the  weight  of  the  turbopump,  the  power  required  to  run  the 
pump,  and  the  bleed  rate  required  to  run  the  turbine. 

N0Z 

The  nozzle  size  required  for  the  expansion  of  the  given 
flow  rate  of  gas  from  specified  stagnation  conditions  is  de¬ 
termined  using  this  subroutine.  The  size  and  weight  of  the 
convergent  and  divergent  sections  are  calculated  separately 
after  the  throat  and  exhaust  areas  are  determined  from  fluid 
flow  computations . 

RMIS 

This  subroutine  is  used  to  determine  the  burning  time  and 
ratio  of  gross  to  empty  weight  of  a  rocket  when  the  mission 
and  the  powerplant  characteristics  are  specified.  Additional 
characteristics  of  the  rocket,  such  as  the  weights  of  fuel, 
tankage,  structure  and  payload,  are  also  computed. 


PRSYS 


A  summary  of  the  more  important  results  of  the  complete 
program  along  with  the  results  from  the  last  three  subroutines 
is  printed  with  the  use  of  this  subroutine.  It  is  also  possi¬ 
ble  to  have  these  results  punched  on  cards. 

2.  Descrption  of  Input  and  Output  Variables 

The  Fortran  names  of  the  important  input  and  output  varia¬ 
bles  along  with  the  corresponding  symbols  used  in  the  test 
and/or  brief  descriptions  of  the  variables  are  presented  in  this 
section.  The  dimensions  of  the  input  variables  are  listed  in 
this  section  while  the  dimensions  of  the  output  variables  are 
given  with  the  results  of  the  sample  problem.  The  variables 
are  listed  in  order  of  their  appearance  in  the  input  and  output 
routines . 

Input: 

TITLE  -  descriptive  title  of  calculated  run  containing  up  to 
72  Holerith  characters,  the  identifying  number  should  be  in 
columns  43  to  48. 

NPR  -  control  variable  for  printing,  if  the  value  is  zero  or 
negative  the  printing  of  some  results  is  suppressed 

NPU  -  control  variable  for  punching,  if  the  value  is  negative 
or  zero  different  amounts  of  punching  are  suppressed 
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NGR  -  control  variable  for  scope  no  longer  used  in  program 
JULIE  -  control  variable  for  PRpPS  identified  in  Appendix  A 


N  -  number  of  computational  steps  to  be  performed  in  HT 
TSE  -  Tgg  (°R) 

PSE  -  pgg  (psia) 

WA  -  w/Aj  (Ib/sec  -  in^) 

TSRI  -  Tgj^  (°R) 


PSRI  -  P3j^^  initial  guess  at  reactor  inlet  pressure  used  for 
estimating  total  heat  flux  to  gas  (psia) 


IWM  -  control  variable  for  shape  of  power  distribution,  if  IVM 
is  negative  the  power  distribution  is  to  read  from  punched  cards 
in  Q0FX,  if  IWM  is  zero  the  power  distribution  is  specified  by 
an  analytic  function  in  QDIST,  and  if  TWM  is  positive  the  wall 
temperature  is  constant  and  its  magnitude  in  °R  is  equal  to  TWM 

CL  -  L  (in) 

V  -  V  (dimensionless) 

D-d  (in) 

RAD  -  R  (in) 

PNE  -  nozzle  exhaust  pressure  used  for  specific  impulse  calcula¬ 
tions  (psia) 


VP  -  Vp  (ft/sec) 

HP  -  hp  (ft) 

ALPHA  -  a  (1/°R) 

E  -  E  (psi) 

PNU  -  V  (dimensionless) 

TK  -  k  (Btu/in-sec-°R) 

TR  -  (in) 

TE  -  tg  (in) 

SR  -  s^  (dimensionless) 

SE  -  Sg  (dimensionless) 

RH0PS  -  density  of  material  used  in  pressure  shell  (ib/ft^) 

SIGPS  -  strength  of  material  used  in  pressure  shell  (psi) 

RH0N  -  density  of  material  used  in  nozzle  (ib/ft^) 

SIGMAN  -  strength  of  material  used  in  nozzle  (psi) 

OQi  -  CQj_,  constant  for  chopped  sine  power  distribution  (dimen 
sionless) 

Output: 

Cl  -  specific  impulse  calculated  from  TSE,  PSE,  and  PNE 
CIMAX  -  specific  impulse  calculated  from  TSE,  PSM,  and 
CME  -  Mach  number  at  exit  of  reactor 
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CFA  -  thrust  developed  per  unit  flow  area  of  reactor 
CFAPS  -  CFA  /  PS(M) 

PS(M)  -  maximum  fluid  stagnation  pressure  in  the  reactor 

DELPSC  -  stagnation  pressure  drop  across  the  core 

PE  -  fluid  static  pressure  at  the  reactor  exit 

P(M)  -  maximum  fluid  static  pressure  in  the  reactor 

DELPC  -  static  pressure  drop  across  the  core 

T(1)  -  fluid  static  temperature  at  the  reactor  exit 

T(M)  -  fluid  static  temperature  at  the  reactor  entrance 

FEXD(M)  -  fL/d  evaluated  at  reactor  exit 

FMLD  -  fL/d  evaluated  at  reactor  entrance 

XD12  -  L/d^*^ 

REBD(M)  -  Re/d  evaluated  at  reactor  entrance 

REBD(l)  -  Re/d  evaluated  at  reactor  exit 

Q(M)  -  total  heat  added  to  unit  mass  of  fluid 

QT  -  initial  estimate  of  Q(M)  based  on  initial  estimate  of  PSRI 

CM(M)  -  Mach  number  at  reactor  entrance 

CI0IM  -  CI/CIMAX 

ETATS  -  (TSE-TSRI)  /  (IWMAX-TSRI) 

PSE0I  -  PSE  /  PSRI 
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PDAV  -  average  power  density  in  reactor 
TCWAV  -  average  value  of  (T^  -  1^) 

TWMAX  -  maximum  coolant  channel  surface  temperature  in  core 
TCMAX  -  maximum  solid  temperature  in  reactor  core 
GWT  -  web  thickness  between  coolant  channels 

CLD  -  L/d 

j^QQ  -  flow  area  per  coolant  channel 

V/PC  -  flow  rate  per  coolant  channel 

FPC  -  thrust  developed  per  coolant  channel 

GV  -  function  of  void  fraction  computed  in  G0FV 

XL  -  non-dimensional  length  measured  from  reactor  exit 

CM  -  fluid  Mach  number 

TS  -  fluid  stagnation  temperature 

T  -  fluid  static  temperature 

PS  -  fluid  stagnation  pressure 

p  -  fluid  static  pressure 

RH0  -  fluid  mass  density 

XPL  -  non-dimensional  length  measured  from  reactor  exxt 

(XPL(I)=(XL(I)+XL(I-1))  /2.0) 
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DQQDXL  -  ratio  of  local  to  average  heat  flux 
IW  -  coolant  channel  surface  temperature 

TC  -  maximum  solid  temperature  in  reactor  core  at  a  given  axial 
position 

PD  -  local  power  density  in  r  eactor 

YL  -  non-dimensional  length  measured  from  reactor  inlet 

FI  YD  -  fx/d  measured  at  position  XL  in  reactor 

FEXD  -  fx/d  measured  at  reactor  exit  for  fraction  of  reactor 
lengidi  XL 

YD12  -  y/d^’^  measured  at  YL 

QY  -  heat  addition  per  tinit  mass  of  fluid  from  reactor  inlet  to 
position  YL 

Q  -  heat  addition  per  unit  mass  of  fluid  from  reactor  exit  to 
position  XL 

REBD  -  Re/d  at  XL 

SIG0  -  Cg 

SIGZ  - 

SIGR  - 

SIGST  -  maximum  tensile  stress  for  maximum  strain  failure  tiieory 
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SIGSTP  -  maximum  compressive  stress  for  maximum  strain  failure 
theory 

SIGSH  -  maximum  shear  stress  times  two  2a„„  for  maximum-  shear 

Sn 

failure  criterion 

SIGSE  -  maximum  stress  for  strain  energy  failure  criterion 
SIGDE  -  maximum  stress  for  distortion  energy  failure  criterion 
AC  -  flow  area  of  reactor  core 
EWTC  -  weight  of  end  reflected  reactor  core 

EWIR  -  weight  of  radial  reflector  around  end  reflected  reactor 
core 

EWTE  -  weight  of  end  reflector  on  core 

EWTT  -  total  weight  of  reflectors  and  end  reflected  core 

TPS  -  thickness  of  pressure  shell 

WPS  -  weight  of  pressure  shell 

RLD  -  length  to  diameter  ratio  of  reactor  core 

SIGSHM  -  maximum  value  of  SIGSH 

SIGDEM  -  miaximum  value  of  SIGDE 

DT  -  diameter  of  nozzle  throat 

DE  -  diameter  of  nozzle  exit  plane 


D-14 


AE  -  area  of  nozzle  exit  plane 

AET  -  ratio  of  exit  to  throat  area  of  nozzle 

CNL  -  length  of  convergent  section  of  the  nozzle 

DNL  -  length  of  the  divergent  section  of  the  nozzle 

WNC  -  weight  of  the  convergent  section  of  the  nozzle 

WND  -  weight  of  the  divergent  section  of  the  nozzle 

WN  -  total  weight  of  the  nozzle 

PNEX  -  design  exit  pressure  for  the  nozzle 

CIEX  -  specific  impulse  calculated  for  expansion  to  PNEX 

THRUST  -  thrust  developed  by  the  powerplant 

WTP  -  weight  of  turbopump 

PTP  -  pressure  at  exit  of  turbopiimp 

WP  -  total  mass  flow  through  system 

WBL  -  mass  flow  rate  of  bleed  flow 

yw  -  fraction  of  mass  flow  required  to  run  turbopump 

HPP  -  horsepower  required  by  pump 

CHN  -  number  of  coolant  channels  in  reactor  core 

Q0NAAV  -  average  heat  flux  per  iinit  surface  area  of  reactor  core 

WS0WP  -  weight  of  powerplant  divided  by  mass  flow  rate  of  cool¬ 
ant 
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WS0F  -  weight  of  powerplant  divided  by  the  total  thrust  developed 

P0WSYS  -  ratio  of  power  developed  to  weight  of  the  powerplant 

WPL0WG  -  ratio  of  payload  to  gross  weight  of  rocket  system 

WSYS  -  weight  of  powerplant 

WH2  -  weight  of  hydrogen  propellant 

WTANK  -  weight  of  hydrogen  propellant  tank 

WS  -  structure  weight 

WE  -  empty  weight  of  rocket  system 

WG  -  gross  weight  of  rocket  system 

WDL  -  dead  load  weight  of  rocket  system 

WPL  -  payload  weight  of  rocket  system 

GEAR  -  exhaust  velocity  of  gas  from  the  nozzle 

CISP  -  specific  impulse  corrected  for  bleed  flow  rate 

PTANK  -  storage  pressure  of  liquid  hydrogen  in  the  propellant 
tank 

F0WG  -  ratio  of  thrust  to  gross  weight  of  rocket  system 
RLAM  -  ratio  of  gross  to  empty  weight  of  rocket 
TP  -  burning  time  required  for  mission 
RZET  -  ratio  of  propellant  to  gross  weight 
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P0WER  -  net  power  developed  by  the  powerplant 

P0WERT  -  total  power  developed  without  correcting  for  bleed  flow 
rate 

P0EWTT  -  P0WER/EWTT 
PTEWTT  -  P0WERT/EWTT 
P0AC  -  P0WER/AC 
PTAC  -  P0WERT/AC 

3.  Fortran  Listing  of  the  Computer  Program 

A  listing  of  the  Fortran  source  program  and  all  the  re¬ 
quired  subroutines,  with  the  exception  of  the  hydrogen  proper¬ 
ties  subroutine  given  in  Appendix  A,  is  presented  on  the  follow¬ 
ing  pages.  Where  two  subroutines  with  the  same  name  are  given 
only  one  should  be  used  for  a  particular  problem. 

The  input-output  functions  are  performed  off  line  automa¬ 
tically  at  the  M.I.T.  Computation  Center  where  this  program  was 
used.  Consequently,  some  modifications  in  the  input-output  may 
be  required  if  a  different  monitor  system  is  used. 


listing  of  nuclear  ROCK.lt  SYSTtI-'  PROGRAM 


*  LI. ST 

*  LABEL 
CNR SYS 2 

COMMON  A*B»T5»PS» 
ITSRI »PSRI »  TwM»CL  tV 
2SIGR»SIG0*SIGZ»B0» 
3RH0PS,S IGPS.PSMAX* 
4WAG»CME  jCFAPtCFAPS 
5G*QT ,CIOIM,ETATS.P 
6WPC»FPC,GV»XL»RH0I 
7RAD»AC»WPS»TPS»DT» 
3SIGSTP»SIGSH,SIGSE 
9»C0NDK.»C0NDR»CFA»R 
COMMON  VP»HP»PTAMK 


T  I P  »  CM  *  T  I  T L  E  ♦  N P  R  ♦  NP U  *  NG R  » T  5  E  » P  S E  »  WA  I 
.D»  JULIE  »N.PNE.PD»  ALPHA  »£»PN'J»T<»Mf 
TR  ♦  T  E  »SR  » SE  ♦RAU » AC  »  EVJTC  » EVJTR  ♦  E'WTE » EWT  T  * 

D E L T  A  *  DELP  A ♦ WP  >  RHON  »  S I GM AN ♦ C I  *  C I MAX  t 
»DELPSC  »PE  »DELPC»rEXU»FMLO  jXDlZ ,RE2D» 

SEO I *PDAV  »  TCWAV  »  TWMAX  »  TCMAX  »GWT  »CLD»  ACC  » 

,XPL  >DQQDXL , TW . TC » Y L ♦ F I  YD  * F EXD » Y012  »Q Y  » 

WNC  » WND» WN  »  AE  »  DE  »CNL  »  DNL  » WTP  »PTP  »SI GST  » 

♦  S I GDE  jPNE  »  PEN . WSYS  *QEAR  » XBAR 

LD . S I GSHM  » S I GDEM , PNEX  »  C I  EX . THRUST  » WBL . YW .HPP 

♦  R  L  A  M  >  U  U  » IV  H  2  » W  T  A  N  K  ♦  W  £  ♦  W  G  »  F  0  W  G »  W  S  » V/  D  L  » P  L 


1,C3AR,CISP 

DIMENSION  A(6»A0)»B(6»40) »TS(2  00) »PS( 200)  »T(2C0) »P(20C) ♦ 
1CM(200) ,TITLE( 12 ) »PD{ 200) ,SIGR( 200) .SIGO( 200) »SIGZ(200) ♦ 
2FEXD(200) ,XD12(200) ,REBD(200) ,G ( 200 ) »XL ( 200 ) . 
3RHOI{200)»XPL1200)»DQQDXL(200)*TW(200)»TC(200)»YL(200)» 

4F IYD( 200 ) » YD12 ( 200 ) »QY( 200 ) 

5  »SIGST (200)»SIGSTP(200)»SIGSH(200)»S1GSE{200) »SIGDE( 200) 
6»QBAR ( 100) tXBAR(lCO) 

READ  4000,  (.(  A  (  I  »  J  )  » 1=1 ,6  )  »  J  =  1  »40  )  »  I  (  3(  I  »  J)  »  1  =  1 ,6)  » J=1  »4u) 
4000  FORMAT ( 3 E2 0.8 ) 

10  CALL  READD 
CALL  PRNTD 
CALL  HT 
CALL  PRHT 
CALL  ST 
CALL  PRST 
CALL  RCSW 
CALL  PRRCSW 
WP=WA*AC^K144.0 
CALL  PRSH 
CALL  TP 
CALL  NOZ 

RLD=CL/ ( 2.0*RAD) 

THRUST=CFAP^tAC*(  1.0-YW) 

WSYS=EWTT+WPS+WN+WTP 


CALL  RMIS 
CALL  PRNTD 
■  CALL  PRSYS 
40  GO  TO  10 
END 
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LIST 

LABEL 


READDl 


READING  OF  DATA  EXCEPT  FOR  QOFX  AND  QDIST 

TEMPERATURE5(DE6REES  Rl»  PRESSURES ( PS  I  A ) ,  W/ A ( LB/ I N2-SEC ) # 
CL  AND  D(IN.)»  ALPHA! 1/DEGREES  R)»  E ( PS  I ) t T< ( BTU/ IN-SEC-R ) ♦ 
TR  AND  TE(IN.)»  BO(l/CM2)»  RHOPS  AND  RHON ( LB-FTS )  , 

SIGPS  AND  SIGMAN(PSI J 


SUBROUTINE  READO 

COMMON  A»B»TS»PS»T,P,CM»TITLE*N?R»NPU»NGR»TSE»PSE*WA, 

ITSRI  fPSRI »TWM»CL  » V , D » JUL I E  xN  » PNE ♦ PD » ALPHA , E , PNU » TK ,M , 

2S I GR  » S I  GO  f  S I GZ  *  BO  t  TR . TE » SR ♦ SE .RAD ♦ AC ♦ EWTC  »  EWTR  »  EWTE i £WT  T  # 
3RHOPS»SIGPS,PSMAX.OELTA,DELPA»WP»RHON»SI6MAN.CI ,CIMAX» 
4WAG*CM£»CFAP»CFAPS,DELPSC.PE.DELPC,FEXD,FMLD»XD12,RESD. 
5Q,QT,CIOIM»ETATS*PSEOI  ♦PDA  V  ♦  TC’VAV  .  TVMA  X  ,  TCMAX  t  GW  T  ,  CLD  » ACC  » 
6WPC»FPC,GV»XL.RH0I » XPL ♦DQQDX L ♦ TW ♦ TC ♦ YL . F I  YD ♦ FEXD ♦ YD12 ♦OY ♦ 
7RAD»AC.WPS»TPS*DT,WNC»WND»WN»AE^DE^CNL»DNL.WTPfPTP^SIGSTf 
SS  IGSTP,SIGSH»SIGSE»SIGDE,PNE»PEN»WSYS»Q3AR.X3AR 
9 , CONDK ♦ CONDR ♦ CFA ♦ RLD ♦ S IGSHMf  S 1 GDEM , PNE  X , C I EX ♦ THRUST  ♦  WBL ♦ YW . HPP 
COMMON  VP  ♦  HP  » PT ANK  > REAM  ♦  TP  ♦  WH2  ♦  WTANK  ♦  WE  » WG  ♦  FOlVG ♦  WS  ♦  WDL  ♦  WPL 
i .CQAR,CI5P 

DIMENSION  A(6»40 ) » B ( 6 $40 ) ♦ TS ( 20G ) ♦PS( 200 ) tTCZOO ) ♦PI  200) ♦ 
1CM{200 ) ♦TITLE! 12 ) .PD( 200) ,SIGR(200) ♦SI  GO! 200) ♦SIGZ!200) ♦ 
2FEXD(20C) ♦XD12I20C) ♦ RE8D ! 200 ) ♦© ( 200 ) ♦ X L ( 200 ) ♦ 

3RHOH200)  ♦XPL<200)  ♦  DQQDXL  (  200  )  ♦TvV  (  200  )  ♦  TC  (  200  )  ♦  YL  !  200  )  ♦ 
4FIYDI200) ♦YD12!200) ♦QY1200) 

StSIGST! 200 ) ♦SIGSTP! 200 ) ♦SIGSH(200) ♦SIGSE! 200) ♦SIGDE{200) 


StOBAR! ICO) 


X8ARI100) 


READ 

4001  ♦ 

ITITLE! I ) ,I=1,12) 

READ 

4002^ 

NPR,NPU,NGR,JULIE,N 

READ 

4010, 

TSE,PSE,WA,TSRI ♦PSRI,TWM 

READ 

4020, 

CL,V,D,RAD 

READ 

4030, 

PNE ♦VP, HP 

READ 

4040  , 

ALPHA, E,PNU,TK 

READ 

4050, 

TR,TE,SR,SE 

READ 

4060, 

RHOPS,SIGPS 

READ 

4060, 

RHON ,SIGMAN 

4001  FORMAT! 1H1A5^11A6) 

4002  F0RMAT!5I10^24X^A6) 

4010  FORMAT!6F10.3^24XtA6) 

4020  F0RMAT(4F10.3^34X^A6) 

4030  FORMAT ! FI 0 . 4 ♦ 2F1 0 . 1 ♦ 44X ♦ A6 ) 
4040  FORMAT!4E15.5^14X^A6) 

4G50  FORMAT(4F10.3^34X5A6) 

4050  F0RMATl2E15.5^44XtA6) 

RETURN 

END 
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LIST 
LABEL 
PRNTDl 


PRINTING  OF  DATA  EXCEPT  FOR  OOFX  AND  ODIST 


subroutine  PRNTD 

COMMON  A*B.TS*PS.T,P.CM,TITLE,NPR,NPU.NGR*TSE»PSE.WA» 

ITSRI .PSRI #TWM. CL »VfDt JULIE »N»PNE.PD» alpha »E,PNU»TK*M» 
2SIGRiSIGO»SIGZ»BO,TRtTE.SR»SE.RAD.AC*EWTC*EWTR»EWTE»EWTT» 
3RHOPSiSIGPS»PSMAX.DELTA»DELPA»WP.RHON.SIGMAN*CItCIMAX* 
4WAG.CME»CFAP,CFAPS.DELPSC.PE»DELPC»FEXD,FMLD*XD12.REB0» 
5Q.QT,CI01M»ETATSiPSE0I *PDAV*TCWAV.TWMAX,TCMAXiGWT.»CLDiACC» 
6WPC.FPCiGV.XL.RH0I .XPL,D0Q0XL,TW.TC.YL»FIYDiFEXD.YDl2»QY» 
7RAD.AC.WPS.TPS.DT.WNC.WND.WN»AE.DE.CNLiDNL.WTP»PTP»SIGST» 
eSIGSTP.SiGSH.SIGSE.SIGDE.PNE.PEN.WSYS.QBAR.XBAR 
9. CONDK. CONOR. CFA.RLD.SIGSHM.SIGDEM.PNEX. Cl  EX. THRUST. WBl.YW.HPP 
COMMON  VP.HP,PTANK.RLAM.TP.WH2.WTANK.WE>WG.F0WG»WS.WDL»WPL 
1  .CBAR.CISP 

DIMENSION  A (6. 40 ) . B( 6 .40 ) »TS I  200 ) .PS  I  200  ) .  T ( 200  )  »P I  200 ) » 
1CM(200) .TITLEdZ) .PO(200),SIGR(200) .S1GO«200).SIGZ(200>» 
2FEXD(200 J .XDl 2(200 ) ,REBD( 200) .0(200 ).XL( 200). 
3RHOI(200).XPL(200) .DOQOXL(200)»TW(200).TC(200).YL(200)» 
4FIYD(200) .YD12(200) .QY(200) 

5.SIGST{20C ),SIGSTP(200).SIGSHt200) .SIGSEI 200) .SIGDE(200) 
6iQBAR( 100) .XBAR( 100) 

PRINT  4001,  (TITLE! I).I»1.12) 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT  4060,  RHOPS.SIGPS.RHON.SIGMAN 
IF  (XABSF(NPU))  20.20,5 
5  IF  (NPRO)  15,15,10 
10  PUNCH  4003 

NPR.NPU.NGR.JULIE.NfTll 


4003 

4002, 

4008 

4009 
4010, 

4018 

4019 
4020, 

4028 

4029 
4030, 

4038 

4039 
4040. 

4048 

4049 
4050. 

4058 

4059 
4060. 


NPR.NPU.NGR.JULIE.N, 


TSE.PSE.WA.TSRI.PSRI.TWM 


CL.V.D.RAD 


PNE.VP.HP 


ALPHA, E.PNU.TK 


TR.TE.SR.SE 


PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 


4002, 

4008 

4009 
4010, 

4018 

4019 
4020, 

4028 

4029 


TSE.PSE,WA,TSRI,PSRI,TWM,TI1 


CL.V.D.RAD, Til 
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PUNCH  4030»  PNE»VP»HP»TIl 
PUNCH  4038 
PUNCH  4039 

PUNCH  4040*  ALPHA*E*PNU»TK»TI1 
PUNCH  4048 
PUNCH  4049 

PUNCH  4050,  TR*T£»SR,SE»TI1 
PUNCH  4058 
PUNCH  4059 

PUNCH  4060,  RH0PS*SIGPS,RH0N,S1GMAN,T11 
NPRO-0 
GO  TO  20 
15  NPRO-1 

PUNCH  4001,  (TITLE{n,I«l,12) 
TllaTITLE(8J 
20  RETURN 


4001  F0RMAT(1H1A5,11A6» 

4002  F0RMAT(5I10,24X*A6) 

4003  FORMAT (SOHO  NPR 

4008  FORMAT (58H0  TSE 
IWM) 

4009  FORMAT (59H  DEG  R 
16  R) 

4010  F0RMAT(6F10.3,14X,A6) 

4018  FORMAT(38HO  CL 

4019  FORMAT(38H  IN. 

4020  F0RMAT(4F10,3,34X,A6) 

4028  FORMAT(28HO  PNE 

4029  FORMAT(28H  PSIA 

4030  FORMAT(F10.4,2F10.1,44X, 

4038  FORMAT(58HO  ALPHA 

1  K) 

4039  FORMAT (60H  1/OEG  R 

lEC-R) 

4040  F0RMAT<4E15,3,14X,A6) 

4048  FORMAT (38H0  TR 

4049  FORMAT(18H  IN. 

4050  FORMAT(4F10.3,34X,A6) 

4C58  FORMAT(58HO  RHOPS 

IAN) 


NPU  NGR 

PSE  WA 

PSIA  LB/1N2-SEC 


V  D 

IN. 

VP  HP) 

FT  FT) 

A6) 

E 

PSl 


TE  SR 

IN.) 

SIGPS 


4059  FORMAT(58H  L8/FT3 

ISI) 


PSI 


4060  F0RMAT(4E15.5,14X,A6) 
END 


JULIE  Nt 

TSRI  PSRI  T 

DEG  R  PSIA  OE 

RAD) 

IN.) 

PNU 

BTU/IN-S 

SE) 

RHON  SIGM 

LB/FT3  p 


♦  *  u  u  u  u 


LIST 

LABEL 


HEAT  TRANSFER  CALCULATIONS 
SUBROUTINE  HT 

COMMON  Af B.TSiPS»TiP.CM,TITLE»NPR.NPU.NGR»TSE»PSE*WA» 

ITSRI *PSRI iTWM.CL.V.DiJULIE»N,PNEtPDtALPHA»E»PNU»TK*M, 

2S IGRtSIGOiSIGZf BO. TR.ZZf SR. YY, RAD. AC fEWTCfEWTR»EWTE»EWTT» 
SRHOPS.SIGPS.PSMAX.DELTA.DELPA.WP.-RHON.SIGMAN.CI .CIMAX* 
4WAG.CME»CFAP.CFAPS.DELPSC.PE.DELPC.FEXD.FMLD.XD12,REB0. 
5Q.QT.CIOIM.ETATS.PSEOI .POAV.TCWAV.TWMAX.TCMAXiGWT.CLD.ACCt 
6WPC.FPC.GV.XL.RH0I .XPL.OQQOXL. TW. TC.YL.fi  YD »FEXD.YD12»QY» 
TRAD.AC.WPS.TPS.DT.WNC.WND.WN.AE.DE.CNLiDNL.WTP.PTP.SIGST. 
8SIGSTP.SIGSH.SIGSE.SIGDE.PNE.PEN.WSYS.QBAR.XBAR 
S .CONDK.CONDR.CFA.RLD.SIGSHM.SIGDEM.PNEX.CIEX.THRUSTiWBLiYW.HPP 
DIMENSION  A(6.40)  .B(6.40),TS(200) .PSl 200) .T(200) .P(200) • 
1CM(200) .TITLE! 12) .PD<200) .SIGR(200) .SIGOJ200) •SIG2(200) » 
2FEXD(200) .XD12(200) .REBD(200) .Q{200).XLt200)  . 

3RHOI (200) .XPL(200) . DOQDXL ( 200 ) .TW ( 2 00 ) . TC ( 200 ) • YL ( 200 ) » 
4FIYD(200) .YD12(200) .QY{200) 

5.SIGST( 200 ) >SIGSTP(200 ) .S1GSH( 200 ) .SIGSE( 200 ) tSIGDE ( 200 ) 
S.QBARdOO)  .XBARdOO) 

DIMENSION  HS(200) .0ELQ(200) ,FEDXD(200)  .DELXL1200) .YPL(200» 
FREQUENCY  1352 d .0 .0 ). 1690( 0 .0 . 1 ). 1711 ( 0 »0 .1 )» 1931 ( O »0»1 ) » 
11971(1.0.0) .2030(1.0.0) .2050 (0.1 »1) .2191(1 >0i0>»2210(0»0*l) 
M«N+1 

CONDR»12.0»3600.0*TK 

CONOK«CONOR/241«9 

TN«N 

DELTS»(TSRI-TSE)/TN 

DELTA-0. S 

DELPA-0.1 

DELMA-0, 00001 

0ELrWG»20.0 

DELTWE*2,0 

NCM-40 

CTAVCl-1. 00017 
CPAVC1=0.9998 
CPSICl-1.0 
CCMlCsl.Ol 
CDELMC-0.8 
1060  TSE-TSE/1.8 

TSRIaTSRl/1.8 

TWM=TWM/1.8 

DELTSxOELTS/1.8 

DELTWG=0ELTWG/1.8 

DELTWE=DELTWE/1.8 

WA=WA*453.5924/ ( 2 . 54**2»0) 

CL=2,54*CL 

Dn2.54*D 

1131  CD12=2.54*»0.2 
1140  R=1.9859 

RBARx82.0618 

PSI=14.6959 

GGCS=980,665 

GCM-1033.23 

WAG-WA  ' 
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CAUL  PROPStTSE»PSE.AiB,-l»JULlE.WSE»Z»RHO.HSE*SSE»CP,GAMSE.DHP, 
1DST*DSP»0MEGT.0MEGP|S1GT,SIGP»ZETAT»2ETAP»EMU»CLAM»PR) 

CALL  PROPS(TSRI *PSRI iA»B,-l.JULIE»W»Z»RHO.HSRI»S»CP»GAMiDHP*DST» 
1DSPi0MEGT.0MEGPiSIGTiS1GP,ZETAT*2ETAP»EMU»CLAM.PR> 

QT=HSRI-HSE 

AOAS=i(PSE/(PSI»WA) )*S0RTF{6GCS*GCM»WSE*6AMSE/(RBAR»TSE) 
KGAMSE+l.O) »#»( (GAMSE+1.0)/(2.0»(GAMSE-1.0) »  » 

IF  (AOAS-1.25)  1203,1204,1204 

1203  CME=-1.5+2.5/AOAS 
GO  TO  1205 

1204  CME=0,625/AOAS 

1205  GME=1.0+( (GAMSE-1.0)/2»0)*CME*»2 

TE=TSE/GME  ' 

PE=PSE/6ME»*(GAMSE/(GAMSE-1.0n 

IF  (NCM»  1241,1245,1245 
1241  PRINT  4001,  ( T ITLE ( 1) , I =1 , 12 > 

PRINT  4050 

PRINT  4010,  TSE,PSE,WA,TSRI,PSRI,TWM 
PRINT  4051 

PRINT  4011,  CL, V,D,CONDK, CONOR 
PRINT  4060 

PRINT  4020,  JULIE, N,DELTS»DELTWG,DELTWE,DELMA,PNE 
PRINT  4150 
1245  Nl»l 

1250  CALL  PR0PS(TE,PE,A,B,+1,JULIE,WE,Z,RH0E,HE,SE,CPE,GAME,DHPE,DSTE» 
10SPE,0MEGTE,0MEGPE,SIGTE,SIGPE,2ETATE,2ETAPE,EMU,CLAM,PR) 
CM2=2,0»W£<f(HS£-HE»/(GAME»R»Te) 

1290  CME»SQRTF(CM2) 

VE«CME*S0RTF(GAME*RBAR*TE*G6CS»GCM/WE> 

DELWAaWA-RHO£»V£ 

OELS«SSE-SE 

OWADTaWA#! (OMEGTE-SIGTE-1.0»/TE-CPE/(2,0*tHSE-HE) )) 

OWADP=WA#( {OMEGPE-SIGPE+1.0)/PE-DHPE/(2,0*(HSE-HE)) ) 
0ELTo(0WA0P»0ELS-0SPE40EUWAJ/(0WADP»0STE-DWADT*DSPE) 

DEUP= { DELS-DSTE»DELT ) /DSPE 
IF  (NCM)  1312,1320,1320 

1312  PRINT  4160,  N1,TE,PE,GME,CM2,DELS,DWADT,DWADP,DELT,DELP 
1320  IF  (ABSF(DELT)-DELTA)  1330,1330,1340 
1330  IF  (A8SF(DELPI-DELPA)  1370,1370,1340 
1340  TE=TE+DEUT 
PE=PE+OELP 

1352  IF  «N1-XABSF(NCM) )  1355,1361,1361 
1355  N1»N1+1 

GO  TO  1250 

1361  IF  (NCM)  2500,1365,1365 
1365  NCM=-2*NCM 
GO  TO  1140 

1370  CALL  PROPS(TSE,PE,A,B,+0,JULIE,W,Z,RHO,H,S,CP,GAM,DHP,DST,DSP, 
10MEGT,0MEGP,SIGT  ,SIGP,ZETAT,ZETAP,EMUBE,CLAM,PR) 
WAP=WA*(30.48»»2)/453.5924 
1400  REBDE=WA/EMUBE 

CFE=(REBDE»*0,2)/0.046 

FELD=CL/(CFE*D**1.2) 

1403  FELD=-FELD 

1404  P(l)aPE 
PS(1)=PSE 
T(l)aTE 
TS(1)»TSE 
HS(l)aHSE 
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CM(1)«CME 
Q«1 J»0.0 
FEX0(1)«0.0 
1500  XU(1)=0.0 

OELQdjaO.O 
QY(l)a-OT 
FEDXD(1)=0,0 
XD12(1)=0.0 
REBD(1)=REBDE 
DELXL(1)=0,0 
XPU(1)=0.0 
DQQOXL( 1)»0.0 
YL(1)=1.0 
1600  YPL(1)=1.0 

RH0I{1)»RH0E 

PD{1)=0.0 

TC(1)=0.0 

CDX=0.046/ (4.0*0.021> 

TCMAX=0.0 

IF  (TWM)  162C»1643.1660 
1620  CALL  QOFX 
1643  TW(1)=TSE 
GO  TO  1670 
1660  TW( 1>=ABSF(TWM) 

1670  DO  2240  I=2»M 

1671  N2«l 

TSd  )=TS(  I-l)+OELTS 
1690  IF  dSdl-TSRI)  1700.1710»1710 
1700  TSd)«TSRI 

1710  TB»(TS(  n+TS(  I-l)  )/2.0 
TAV=CTAVC1*TB*T(  I-l)/TSd-l> 

1711  IF  (1-2)  1712*1712*1713 

1712  TIC«Td-l) 

PI0«P(I-l) 

PSI0=PS(1-1» 

GO  TO  1714 

1713  TIO=T(I-2) 

PI0=P(I-2) 

PSl0=PS(I-2) 

1714  PAV=P( I-1)+CPAVC1*(P( I-l)-P10)/2.0 
PSd )=PS( I-l )+CPSICl*(PS( I-l)-PSIO) 

TAV1=TAV 

PAV1=PAV 

PS1=PS(I» 

1720  CALL  PROPS (TSd ) *PS( 1) * A , B *-l » JUL I E *W * 2 *RHO *HS (I ) *S *CP *6AM*DHP *DST 
1 »OSP.OMEGT fOMEGP »SIGT»SIGP.ZETAT*ZETAP*EMU*CLAM*PR) 

1721  TIG=2.0*TAV-T(1-1) 

1722  P1G=2,0»PAV-P(I-1) 

PSN2=PSd)  .  ■ 

CALL  PROPS(TB»PAV*A,Bt+O.JULlE*W»2»RHO.H,S*CPB*GAM,DHP*DST*DSP» 
10MEGT,0MEGP.SIGT.SIGP»2ETAT.ZETAP*EMUB*CLAM*PR> 

RMU02= ( EMUBE/EMOB) **0.2 

CALL  PROPS(TAV»PAV.A.B*+1.JULIE»WAV*ZAV.RHOAV»H.S*CPAV*GAMAV*OHP» 
1DST,DSP*0MEGTV.0MEGPV.SI6TV.S16PV*2ETATV*ZETAPV*EMLI*CLAM*PRJ 
DELQ(n=HS(I  >-HS(I-l) 

Q(  n=Q(  I-1)+DELQ(  I ) 

DQCPT=DELQ( I )/(CPAV*TAV) 

1800  IF  (TWM)  1870*1870*1810 
1810  TW(1)=TWM 
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TFI»(TW( I )+TB)/2.0 

CALL  PROPS<TFI»PAV.AiB.+0»JULlE»W.Z.RHOFI .H»S»CPFIiGAM#DHP#OST#DSP 
1 tOMEGT iOMEGPtSlGT»SI6P*ZETAT»ZETAP*EMUFl »CLAMFI iPRFIJ 
FBDX0aCDX»PRFl**0.6*(EMUB/EMUFn**0.2*(RHOAV/RHOFI )»*0»8*DELQ( I>/ 
1(CPFI*(  Twn  )-TB)  ) 

FEDXD(  n*FB0XD*RMU02 
GO  TO  1891 

1870  CALL  QDIST{0( I) *QT.XL< m 
DELXL(  I  )»XL(  n-XL(I-U 
FEDXD( n »FELD*0ELXL{ I ) 

FBDXD=FEDXD( I)/RMU02 

1891  IF  (NCM)  1892*1895. 1895 

1892  PRINT  4170 

PRINT  4160*  N2.TIG.PIG.TAV,PAV.PS< n .HSI I ) .HSl I-l I .OQCPT.FBOXD 
PRINT  4180 
1895  N3=l 

IF  (N2-1J  1900.1900*1910 

1900  CM(I)=CCM1C»CM<I-1)*TS(I)/TS(1~1) 

1901  CMl=CMtn 

1910  CMBAR=(CM(  n+CM(  I-in/2.0 
CM8AR2*GMBAR»»2 
GM2D=1.0-OMEGTV+S1GTV 
GM2E=1.0+OMEGPV-SIGPV 
GM2F=GM2E+1.0+ZETAPV-SIGPV 
GM2B=GM2D-2ETATV+SIGTV 
GM2A=GM2D*GM2F-GM2B#GM2E 
ETA=R/(WAV*CPAV) 

GM2C«1.0-GAMAV«CMBAR2*< (GM2E/ZAV>-ETA*GM2D»»2) 

GM2 J« ( GM2A*GAMAV4CMBAR2 /2AV+GM2B ) /GM2C 

DeLM2=CMBAR24(GM2J*DOCPT+(-GM2B+GM2J»(1.0+GAMAV»ETA»CMBAR2*GM20))* 

1FB0X0«2*0/GM20) 

1931  IF  (CM( 1-1)4*2+DELM2)  1932,1932.1934 

1932  CMC-0.0 

60  TO  1941 

1934  IF  <CM( I-1)4*2+DELM2-1,0)  1940,1985,1985 

1940  CMC=SQRTF(CM( I-1)»*2+DELM2J 

1941  IF  (NCM)  1942,1950.1950 

1942  PRINT  4160,  N3,CM( I ) ,CMBAR,GM28,GM2D,GM2J,GAMAV,ETA,DELM2,CMC 
1950  DELM=CMC-CM( I) 

IF  (CMC)  1970,1970,1952 
1952  IF  (ABSF(DELM)-OELMA)  1990,1990,1970 

1970  CM( I )=CM( I )+COELMC*DELM 

1971  IF  (N3-XABSF(NCM) )  1972,1985,1985 

1972  N3-N3+1 

GO  TO  1910 

1985  IF  (NCM)  1986,1988,1988 

1986  M»l-1 
NPR»1' 

NPU»0 

NGR-0 

GO  TO  2242 

1988  NCM=-2#NCM  .  ‘ 

GO  TO  1892 

1990  DELP0Ps(GM2D*DELM2/CMBAR2+2,0*GM2B*FBDXD)/{-GM2A-GM2B»ZAV/(GAMAV* 
1CMBAR2)) 

DELTOT»(DELM2/CMBAR2+GM2F*DELPOP)/GM2B 
P(I)-P( I-l)»(2.0+DELP0P)/{2.0-0ELPOP) 

T( I)»T( I-l )#(2,0+DELTOT)/(2»0-DELTOT) 

CALL  PROPS(T( I) ,P( I) ,A,B,-1,JULIE,WI,Z,RH01( n.HI ,SI»CP,6AMI ,OHP, 


10ST,DSP»OMEGT»0MEGP»SlGT,SlGP*ZETATtZETAP»EMU»CLAM»PR| 

HSIC«HI+{CM( I )##2.0)*GAMI#R*T( I J/<2.0»Wn 
2001  TSS»TS<I) 

N4«l 

IF  (NCM)  2007.2010.2010 
2007  PRINT  4190 

PRINT  4160.  N2.DELM.CMBAR2,GM2F.DELPOP.OELTOT»P(I ).TI D.HSICfTSS 
PRINT  4200 

2010  CALL  PROPSJTSS.PSII ) .A.B.+l, JULIE.W.2.RHO.HSSI »SSI .CPSI .GAM.DHPSI » 
IDSTSI.DSPSI.OMEGT.OMEGP.SIGT.SIGP.ZETAT.ZETAP.EMU.CLAM.PRJ 
0ELHS=HSIC-HSS1 
DELS=SI-SSI 

DELTSI=<OSPSI<fDELHS-OHPSI»DELS)/(CPSI»DSPSI-DHPSl#DSTSI) 

DELPSI= (DELS-DSTSI»DELTSI J/OSPSI 
IF  (NCM)  2016.2019.2019 

2016  PRINT  4160.  N4 . HSS I . HS I C .DELHS »SS I . DELS . CELTS  I . DELPS I »PS ( 1) # TSS 

2019  IF  (ABSF(DELTSI )-DELTA)  2020*2020.2030 

2020  IF  {ABSF(DELPSn-DELPA)  2040*2040*2030 

2030  IF  (N4-XABSF(NCM) )  2031.2036*2036 

2031  PS(I)=PS(n+DELPSI 
TSS=TSS+DELTSI 
N4aN4+l 

GO  TO  2010 

2036  IF  (NCM)  1986.2037.2037 

2037  NCM=-2*NCM 
PS(I)»PSN2 
GO  TO  2001 

2040  CALL  PTC(T( I ) .T( I-l ) .TAV.Pd ) *P( I-l ) .PAV.PS( I ) .PSN2.TS( 1 ) »TSS. 
IDELTA, DELTA.  DELPA.N2. NCM) 

2050  IF  (N2)  2055.2058.2051 

2051  N2=N2+1 

GO  TO  1720 

2055  IF  (NCM)  1986.2056.2056 

2056  NCM=-2*NCM 
GO  TO  1671 

2058  CALL  PROPS(TS( I ) .PS( I ) . A ,B ,+0 * JUL I E .W .Z . RHO .HS ( I ) .S .CP .GAM .DHP ,DST 
1 .DSP.0MEGT,0MEGP.S1GT.SIGP*ZETAT*ZETAP.EMUS»CLAM.PR) 

FEXD( I )=FEXD( I-l )+FEDXO( 1) 

X012( I ) =CFE*ABSF(FEXO( I ) ) 

(3Y(  I  )=-QT+Q(  I  ) 

REBO(I)=WA/EMUS  . 

IF  (TWM)  2071.2071.2240 
2071  N5»1 

IF  (NCM)  2075.2080.2080 
2075  PRINT  4210 

2080  CT»FBDXD/( CDX*0ELQ( I )»EMUB**0.2*RHOAV»*0.8> 

TW(I)=TW(I-1) 

2100  OELT*2.0«DELTWG 
CGTW«0.0 

2120  TFI=(TW( I )+TB)/2.0 

CALL  PROPS(TFI .PAV.A.B.+O.JULIE.W.Z.RHOFI .H.S.CPFI .GAM.DHP.OSTtOSP 
l.OMEGT.OMEGP.SIGT.SIGP.ZETAT.ZETAP.EMUFI.CLAMFI .PRFl ) 
GTW=CT*CLAMFI##0.6*(CPFI/EMUFI)**0.4-1.0/( ( TW( 1 )-TB)»RH0FI»*0*8) 
CTW=*SIGNF(  l.O.GTW) 

IF  (NCM)  2152.2160.2160 

2152  PRINT  4160.  N5 .CT.TW( I-l ) *TW( I ) .OELT.CGTW.TB.TFI .GTW.CTW 
2160  IF  (CTW-C6TW)  2170.2190.2170 
2170  IF  (DELT-DELTA)  2240.2240*2180 
2180  DELT.DELT/2.0 
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^190  CGTWCTW 

2191  IF  (N9-XABSF(NCM| I  2198i2194»2l94 

2194  IF  (NCM»  1986i2l95i2195 

2195  NCM»-2*NCM 
GO  TO  2071 

2198  N9-N5+1 

2200  TW(I)»TW(I)-CGTW*DELT 
2210  IF  (TWtn-TB)  2220*2220*2120 
2220  TW(  n»TB+DELTWe 
GO  TO  2120 
2240  continue 
2242  FIY0(1)«-FEXD(M) 

FMLD*FEXD(M)#(REBOE/REBDtM) )**0.2 
YD12(1 »-XD12(M) 

0«(CL/XD12(Mn»<K1.0/l«2) 

CALL  G0FV( V*D*GV*GWT) 

PAVLV»1.16279E-09*3600.0»(30.48»*3>»WA»ABSF(Q{M> ) 

GTCAV=WA*ABSF(Q(M) J/{16.0»X012{M) » 

6GTC=GV*D*#0.8/CONDK 

GPD»V/CL 

TWMAXaTWd) 

2248  PAVLV=PAVLV/2.54 
CL«CL/2.54 
D-D/2.54 
GWT=GWT/2.54 
GPO-V/CL 

2250  IF  (TWM)  2231*2231*2256 
2231  DO  2254  I«2*M 

IF  (TWMAX-TW( I) )  2253.2254*2254 

2253  TWMAX»TW(I) 

2254  CONTINUE 
GQ  TO  2260 

2256  DO  2258  I>2*M 

DELXL(  n«FEDXD(  n/FEXOJM) 

2258  XL(I)>XL(I>l)tDELXL(t} 

2260  DO  2320  I<2tM 

XPL(n-XLt  I-l)+0.5*0ELXLin 
DQQDXLI I J»DELO< I )/ <QT*OELXUt I >> 

YL(  n»1.0-XL(  n 
YPL(I)=1.0-XPL«I) 

FEYD=x-FEXD(MJ+FEXD(n 

FIYD( I )=FEYD*(REBDE/REBD(I>  >»*0»2 

Y012<I )=CFE*ABSF(FEYD) 

PD(  n=GPO*PAVLV»OQQDXL(I  I 

TC(  n=TW(  I  J+GGTC*GTCAV*DOODXL<  I J 

IF  (TCMAX-TC( I ) }  2319.2320.2320 

2319  TCMAX»TCm 

2320  CONTINUE 
2336  TSMAX«TSE 

TSMIN«TS(MJ 

PSMAX=iPS«Mj 

PSMIN-PSE 

2340  CALL  SIMP( TSMAX .PSMIN.PNE.CX) 

CALL  SIMPITWMAX.PSMAX.PNE.CIMAX) 

2357  CFA»CI#WA 

CFAP»CI*WAP 

TCWAV»QGTC*GTCAV 

P0AV»6P0»PAVLV 

ACC»3.14159#D#»2/4.0 
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CLD-CL/D 

WPC«WAP#ACC/144.0 
^P5"CFAP#ACC/144.0 
OELPSC«ABSF(PSE-PS(M)» 
DELPCaABSFrPE-p{MJ ) 

PSEOr«PSMIN/PSMAX 

CIOIMsCI/CJMAX 

2361 

TSRl3l,8*TSRI 

TWM=1.8#TWM 

TWMAXal,8#TWMAX 

TCMAXsl.8*TCMAX 

TCWAV=1 ,8*TCWAV 

OELTSal ,8*DEUTS 

OELTA=l,8*D£LTA 

DELTWG=1,8#DELTWG 

OELTWE=l»a»OEl.TWE 

OTal,8»QT 

WA=WA*(2«54*#2«0 J/453,5924 
GRH0=(2.54*#3J/453.5924 
DO  2460  I«1,M 
TStl )al,8*rS(I  J 
T  1 1  )  =  1.8»T( I ) 

TCfl ;al,8#TC(  n 
2400  0ELQ(r)ai,8#DEL0ri) 
D<n»i«8#o(n 
0Y( I )«l,8«0y(  J  ) 
XO12(ri«C012#X012(I) 
y012(l)»CD12»Y012(Ii 
RE80<  n»2.54*RE80(  X  J 

HS( i)»x,8*Hsr n 

2460  TW(  n»i  »8#Twn  I 

to?o  ^°'’MAT(XH1A5Ii]a6J 


4050  FORMAT(58HO  T« 

1WN,)_ 

4051  FORMAT(48HO 

4060  FORMAT (68H0  ji 

.,.-1MA  pme, 

4150  FORMATdaOH  N1 

dels 

P0RMAT(I3,9E13.5, 
A170  FORMATM20H0N2 

1  PS(l) 

4180  FORMAT(120H  N3 
GM2J 

4190  FORMAT, 120H  N2 

/o/6o^  DEL  TOT 

4200  format, 120H  N4 
1  DELS 

4210  FORMAT, 120H  N5 

2500  Return 

END 


L 

JULIE 


TE 

OWAOT 

TIG 

HSCIl 

CMJH 

GAMAV 

OELM 

PCI) 

HSSI 

DELTSI 

CT 

T8 


•4»4XtA6) 

WA 

D 

N  DELTS 

PE 

DWADP 

PIG 

HS, I-l) 
CM8AR 
ETA 

CMBAR2 

TCIJ 

HSIC 

OELPSI 

TW,I-1) 

TFI 


K 

DELTWG 


JC) 

DELTWE 


GME 

DELT 

TAV 

DQCPT 

GM2S 

DELM2 

GM2F 

HSIC 

DELHS 

PSd) 

Tw,n 

gtw 


CM2 

OELP) 

PAV 

FBDXD) 

GM20 

CMC) 

DELPOP 

TSS) 

SSI 

TSS) 

DELT 

CTW) 


D-28 


"i  r\  r\ 


LIST 

LABFL 


v'.DOFXl 

C. 

NORMALIZED  Q  VS .  X  FOR  OXP(I)  AND  NORMALIZED 
Y( I )  =  1.0-X (  I  )  GIVEN 

SUBROUTINE  QOFX 

COMMON  A»BfTSiPS»T,P,CM*T I TLE ♦ NPK , NPU ♦ NGR » TSE fP SE » WA » 
ITSRI »PSR I »TWM. CL. V.D, JULIE »N»PNc,PD* ALPHA »E,PNU»TK,M, 

2 S  I GR  » S I  (iO » S I  GZ  » 30  .  T,R  ♦  T  E » SR  . S E  .  R AD .  AC  » E  W TC  »  EWTR  » £ WTE  »  EWT  T  » 

3  RHOPS , S I GP  5  » P  SM AX  » BE  L  T  A » DELP  A  » WP  » RHON . S I  OMAN . C I . C I  MAX  » 
4WAG.CME.CF AD, CFAP 3. DELPSC.PE.de LPC.FEXD.FMLD. XDl 2. REBD. 
fjQ.OT.CIOIM.ETATS.PSEOI  ,  PDAV  ,  T  CWAV  ,  T  WMAX  ,  TCMAX  ,  GWT  ,  CLO  ,  ACC  . 
SWPC.FPC.GV.XL.RHOI , XPL . DOQDX L , T W . T C . Y L , F I  YD . FEXD . YDl 2 .0 Y . 
TRAD.AC, WPS, TPS. DT.WNC, WND.WN.AE.de, CNL, DNL.WTP.pt P.S I  GST. 
SSIGSTP.SIGSH.SIoSE.SIGDE.PNE.PEN.WSYS .OBAR.XBAR 
9,C0NDK.C0NDR.CFA 

DIMENSION  A(6.40)*3(5.40).TS(200).PSt200).T(200).P(200). 
ICM (200)  .TITLE! 12 ) . PD ( 200 ) . S I GR ( 2CD ) .SIGO( 200 ) .SIGZ(200)  . 
2FEXD(2CO).XD12(200),REBD(200).0(200)»XL(200). 

3RHOI ( 200 ) .XPL( 200 ) ,DQQDXL(200) .TW(200).TC(200).YL(200). 
4FIYD(200) ,YD12(200) .QY{200) 

5. SI  GST (2 00 ) ,3IGSTP(200) ♦SIGSH(2C0) .SIGSEI 200) .SIGDE(200) 
6.QBAR( 100) ,XBAR( 100) 

DIMENSION  GQ( ICO ) .X( 100) .QSUMC 100 ) »FMT{ 12) 

READ  110.  NO 
110  FORMAT! 110) 

READ  130.  (FMT( I ) .1=1.12) 

130  FORMAT (12A6) 

READ  FMT.  ( X ( I ) .00 ( I ) . I =1 .NO ) 

OSUM{1)=0.0 
DO  170  1=2. NO 

170  QSUM( I )=QSUM( I-l )+QQ( I )*(X{ I-l )-X{ I ) ) 

DO  200  1=1, NO 
QBAR ( I ) =QSUM{ I )/OSUM(NQ) 

200  XBAR(I)=1,0“X(I) 

RETURN 
END 


ri  o  rv 


LIST 

LA3EL 


C;.30FX.^ 

NORMALIZED  0  VS.  X  FOR  0(1)  GIVEN  AT  X(I)  AND  X(1)=0.0 
SUBROUTINE  OOFX 

COMMON  A.B.TS»PS.T,P»CM»riTLE.NPR,NPJ,NGR»T3E.R5E»WA» 

1  TSR  I  »PSR  I  ♦  T  WM  *  CL  » V  »  D  ♦  JUL I  E  »fJ »  PME  .PD  ♦  ALPHA  »  E  .  PNU  »  TK  . i'' » 
ZSIGR.SIGO.SIGZ »P0. TR , T E . SR . S E ♦ RAD . AC ♦ E w TC » EWTR , E WTE » EWT T  ♦ 

3  R  Fi  0  P  S  ,  S  I  G  P  S  .  P  S  M  A  X  »  U  E  L  T  A  ♦  D  E  L  P  A  ,  Vj  P  ,  k  rH  0  M  .  5  I  G  M  A  M  ,  C  I  »  C  I H  A  X  » 
41VAG.CME  .CFAP.CFAPS.DELPSC.PE  .DELPC.FFXD.rMLD.XDlZ.REBD. 

3  Q  »  0  T  » C  I  0 1 M  ,  E  T  A  T  5  » P  S  EG  I  .  P  D  A.  V  »  T  C  WAV  .  T  WM  AX  .  T  CMAX  .  GW  T  ,  C  LD  .  A  CC  » 
6WPC , FPC . CV . XL ,RHO I »XPL , DGQDXL  »  TW ♦ T  C . YL  »  F I  YD i FEXD  » YD12  »QY  » 
7RAD.AC.  WPS  .TPS.  DT  .V.'NC  .WND.WN  •,  AE  .  DE  ,  CNL  ,  DNL  » WTP  » PTP  » 5 1  GST  ♦ 
3S  I GS  IP  ,  S  I  g:-:h  ♦  S  I  GSE  »  S  I  GDE  .PNE  ,  pen  .WSYS  » osar  »  XBAR 
9 .CCNBK .CONDR ,CFA 

DIMENSION  A(6.40).B(6.40),TS(200) »PS( 200) »T«2CC) .P(200) » 
1CM(20j ) ,T ITLE( 12 ) . PD ( 200 ) , S I GR ( 200 ) . S I  GO ( 2 00 ) ♦ S I GZ ( 200 ) . 
2FEXC(200 ) .XD12 ( 200) ,REBD(200 ) » Q ( 2 00 ) » XL ( 2 00  )  » 

3RHOI  (200)  ♦XPL(20::)  .DQQDXL{2CC)  .  TVv  (  2  00  )  .  7  C  (  200  )  »YL(200). 
4FIYD{200) ,YD1 2(200 ,QY(2C0) 

5.SIGST  (  20  0  )  ,S-IG5TP(  200)  ,SIGSH{  200)  ,SIGSE(  2C0  )  »SIGDE{200) 

6, GEAR ( IOC ) .XBAR (IOC) 

DIMENSION  CQ( 100) .X( 100) .QSUM( lOG)  .FMT( 12) 

READ  110.  NO 
110  FORMAT!  no 

READ  130,  (FMT(  I  )  .1  =  1,12) 

130  FORMAT! 12A6) 

READ  FMT,  ! X (I ) .00 ( I ) , I =1 .NO) 

OSUM!1)=0.0 
DO  170  1=2, NO 

17C  QSUM! I ) =OSUM( I-l )+(00( I-1)+QQ! I ) ) * ( X ! I ) -X ! I-l ) ) /2 .0 
DO  200  1  =  1  , NO 
GEAR! I ) =OSUM( I ) /QSUM!NO) 

200  XBAR ( I ) =X! I ) /X(NO) 

RETURN 
END 
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“  LAdEL 

c 

C  AXIAL  0ISTRIf3UT10N  OF  HEAT  GENERATION 

C  1  IS  CHOPPED  SIN  FUNCTION 

C 

SUBROUTINE  ODIST  ( ODO »QT .QDXL ) 

COMMON  A»B.TSiPS»T  » P ♦ CM ♦ T I TL E » NPR  » NPU » NGR  ,  TSE »PSE » WA » 

1 TSR I »PSR I ♦ TWM.CL»ViD.JULIE»N#PNE*PD»ALPHA»E»PNU»TK»Mi 
2  S I GR  » S I  GO » S I GZ  » BO ♦ TR , T  E .SR ♦ S  E . R ad  » AC » EW  TC  »  EWTR  » E WTE  » EWT  T » 
3RH0PS,SIGPS.PSMAX»DELTA,DELPA,WP ♦RHON»SIGMAN*CI .CIMAX* 
4WAG*CMc  jCFAP  »CFAP5»DELPSC»PE  fOELPC  »rEXD»FMLD»XD12 ,REBDf 
5Q  tCT , C 1 0 1 M , ET  ATS  » PSEO I , PDAV ♦ TCWA V  »  TWM AX  »  TCMAX  *  GWT , CLD » ACC  t 
5WPC»FPC»GV,XL,RH0I * XPL ♦DQODXL ♦ T W ♦ T C » YL » F I  YD » FEXD » YD12 *QY » 
7RAD»AC»WPS, TPSf DT»WNC»WND»WN»AF,DE  »CNL.DNL  »WTP,PTP»SIGST* 
3SIGSTP,SIG5H*SIG3E»SIGDE,PNE,PEM»WSYS»QBAR  »XBAR 
9»C0ND<,C0N0R,CFA 

DIMENSION  A(6»40) »3( 6*40) »TS(  200) »PSI200)  »T(200) »P(200) ♦ 
1CM(2C0) .TITLE(12)»PD(200),SIGR(2C0) ,S1GO(200) »SIGZ(200)» 

2 FEXD (200) ♦XD12(200) ,REBD(200) *0 ( 2C0 ) ♦ XL { 200 ) » 

3RH0I (200 ) »XPL ( 200 ) ♦ DQODXL (200) » TW ( Z 00 ) »  TC ( 200 ) » YL ( 200 ) » 
4FIYD(200) »YD12{2C0) ,QY(2C0) 

5»SIGST ( 2C0 ) ,SIGSTP( 200 ) .SIGSHI 200) »SIGSE( 200 ) »SIGDE(200) 
6,QBAR( 100) ♦XBARI 100) 

IF  (WSYS)  20,10»10 
i:  READ  1000,  CQl 
WSYS=-1.0 
TI1=TITLE(8) 

PRINT  1010,  CQl 
IF  (XABSF(NPU))  20,20,15 
15  PUNCH  1010, CQl, Til 

20  QDXL=ACOSF(l ,0-( 1.0-COSF(CQ1 ) ) ^QDO/QT ) /CQl 
ICOC  FORMAT(F10.4) 

1010  F0RMAT(8H0  CQl =F6 , 4 , 60X , A6 ) 

RETURN 

END 
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ri  n  n  ' 


LIST 

»  LABEL 


AXIAL  distribution  OF  HEAI  GENERATION-  2  .IS  TABULAR  DATA 
SUBROUTINE  ODIST  ( ODO .QT ,OOXL  ) 

COMMON  A»8»TS»PS»  T  » P » CM  » T  I  TL E ♦ NPR , NPU » NGR » TSE » PSE » WA » 
ITSRI iPSRI »TWMiCLfVfD»JULIE,N.PNE»PDf ALPHAfEiPNUf TK»M» 
2SIGR»SIG0»SIG2»80»TR, TE»SR»SE»RAD.AC»EWrC»EWTR»EWT£»EWTT» 
3RH0PS»SIGPS»PSMAX*DELTA»0ELPA#WP»RHCM»SIGMAN»CI ,CIMAX». 
4WAG»CME»CFAP»CFAPS,DELPSC,PE,0ELPC  ,FEXL)tFMLD»XD12  ,REBD» 

53 ,01 ♦CI0IM,ETATS*PSE0I , PDAV ♦ TCW AV » TWMAX » TCMAX  » GWT ,CLD » ACC » 
6WPC»FPC,GV,XL»RHCI »XPL,00QDXL *TW»TC» YL.fi  YD »FEXD»YD12»QY» 
7RAD»AC»WPSjTPS.DT»WNC,WND»WN»AE»DE»CNL,DNL,WTP .ptp.sigst, 
8SIG5TP,SIGSH,SIGSE,SIGDE,PNE.PEN,W5YS.QBAR»XBAR 
9,C0NDKtC0NDR»CFA 

DIMENSION  A(6.4C ) » B ( 6 » 40 ) ♦ TS I  200 ) ,PS ( 2C0 ) .T ( 200 ) .P(200 ) » 
1CM(200 ) fTITLEI 12 ) » PD ( 200 ) , S I GR ( 200 ) ♦SIGOI 200 ) »SIGZ( 200) » 
2FEXD{200) »XD12( 200) .REBDI 200) *0(200) » XL (200) » 
3RHOI(200)»XPL(200) »DQQDXL(  200 ) » TW ( 200 ) ♦ TC ( 200 ) .YLI 200)  ♦ 
4FIYD(200) .YD12(200) .QY(200) 

5. SI GST (200 ) ,SIGSTP( 200 ) .SIGSHi 200 ) ,SIGSE( 200) »SIGDE(200) 
S.OSARdOO)  ,X3AR(1C0) 

1=2 

RQ=QDQ/QT 

IF  (1,0-RQ)  103.110,110 
103  RQ=1.0 

110  IF  (QBAR(I)-RQ)  120,140,140 
120  1=1+1 

GO  TO  110 

140  QDXL  =  XBAR( I-l )  +  (QD0/QT-Q8AR(  I-l  )  )*(XSAR(  I )-XdAR( I-l) )/ 

1 (OBAR( I )-QBAR( I-l ) ) 

RETURN 

END 
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o  n 


LIST 

«  LABEL 

CPTC201 


PRESSURE  AND  TEMPERATURE  CORRECTIONS  FOR  LOOP  2  IN  JCHTl 

SUBROUT  INE  PTC  < T I  2 » T 1 1 » T AV »P I  2 » P 1 1 , PAV »PS I  2 • PSN2 I ♦ T5 1 2 » 
1  rSS,DELTSA,DELTME.D£LPMt,M2,N2M)  ^  i  ,  .  o  l  ^  , 

'  T  IG  =  2,0*TAV-Tn 
'  P IG=2,0>=AV-PI 1 
PSIG=PSN2I 
DTS=rsS-TSI2 

IF  ( ABSF(OT5)-DELTSA)  150,150,380 

IF  (ABSF(TI2-TIG)-DELTME)  160,160,380 

IF  (ABSF{PI2-PIG)-DELPME)  170,170,^80 

IF  (ABSF(PSI2-PSIG)-DELPME)  460,460,380 

IF  (N2-XABSF(N2M) )  390,480,480 

TIG=TI2 

PIG=PI2 

PSIG=PSI2 

TAV=(TI1+TIG)/2.0 

PAV=fPri+PIG)/2.0 

PSI2=PSIG 

GO  TO  490 

N2=0 

GO  TO  490 
N2=-N2 
RETURN 
END 
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LIST 

LABEL 

CGOFVOl 

C 


1  IS  VOID  FRACTION  PARAMETER  FOR  EQUILATERAL  HOLE  SPACIN 

SUBROUTINE  GOFVI V»D,GV»6wr ) 

Cl  =  2.0«-3.  l4159/3.C)»^fl.5 

GV=  (  V-LOGF  (  V  )+LOGF(  Cl  )  -0*94148^fCl )  /(  1 ,0-V) 

GlvT=D^(  (C1/V)*^0.5-1.0)/2.0  J/H.OV) 

RETURN 

END 


nr»r»  « 


*  LIST 
LABEL 

SPECIFIC  IMPULSE  CALCULATION 

SUBROUTINE  SIMP  ( CITS.CIPS»C1PNE»CISP) 

COMMON  A.BiTSiPSiT»P.CM.TITLE»NPR»NPU»NGR»TSEfPSE»WA» 
lTSRI»PSRI»TWM»CL.VfDiJULlEfN»PNE»PD» ALPHA *E»PNUiTK»M» 
2SIGR»SIGO.SIGZ»BOiTR.TE*SR»SE*RAD»AC#EWTC»EWTR»EWTE#EWTT* 
3RHOPS»SIGPS»PSMAX»DELTA.DELPA*WP»RHON»SIGMAN»CI tCIMAXf 
4WAG»CME»CFAP»CFAPS.DELPSC*PE»0ELPC»FEXD»FMLD.XD12,REB0i 
5Q#QT»CI01M»ETATS*PSE0I iPDAV»TCWAV» TWMAX . TCMAX »GWT ,CLO»ACC » 
6WPC»FPC»GV.XL*RHOIiXPL»DQODXL»TW»TC»YL»FIYD»FEXDtYD12*QYf 
7RAD*AC*WPS»TPSiDT*WNCiWND*WN*AE*DE»CNL*DNL»WTPiPTP»SIGSTf 
8SIGSTP.SIGSH»SIGSE.SIGDE*PNE.PEN»WSYS»QBAR»XBAR 
9»C0NDKiC0NDR»CFA 

DIMENSION  A(6«40)*B(6«40)»TS(200)tPS(200)*TI200UP(200lt 
1CM(200) •TITLE(12) •PD(200).SIGR(200>  »SIGO{200) »SIG2(200>  » 

2FEXD{200) *XD12(200) |RE6D(200)>Q(200) iXL(200) » 

3RHOI (200) .XPL( 200) »DQQDXL« 200) »TW( 200) 110(200) » YU  200) » 

4FIYD(200) »YD1 2(200 ) »QY( 200) 

5*SIGST( 200 ) .SIGSTP(200) »SIGSH(200) »SIGSE(200) »SIGDE(200) 
6«QBAR(100) iXBAR(lOO) 

CALL  PR0PS(CITS»CIPS»A.B»-1»JULIE»W»Z»RH0»CIHS*SS»CP»GAMS»DHP» 
10ST»DSP»OMEGT.OMEGP|SI6T»SIGP»ZETAT»2ETAP»EMU#CLAM»PR) 

TNE«CITS*( (CIPNE/CIPS)#»( (GAMS-1.0)/6AMS) ) 

10  CALL  PROPS (TNE«CIPNE»AiB.l»JULIE»W»ZtRHO»HNE»SNE»CP»6AM»DHP»OSTNE* 
10SPi0MEGTi0ME6P»SIGTiSlCP»2ETAT»2ETAP»EMU»CLAM»PR) 

DELTAS-SS-SNE 
DELTAT-DELTAS/DSTNE 
IF  (ABSF(OELTAT)-DELTA)  30f30»20 
20  TNE-TNE+DELTAT 
60  TO  10 

30  VNEC«SQRTF(2.0»(CIHS-HNE)*82.0168#980. 665*1033. 23/1. 9859) 
CISP-VNEC/980.665 
RETURN 
END 
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PUNCH  4011.  CL.V.D.CONOK.CONOR.Tll 
PUNCH  4041 
PUNCH  4042 

PUNCH  4043,  Cl. ClMAX.WAG.CME.CFA.CFAP.CFAPSfTIl 
PUNCH  4044 

PUNCH  4045,PS(M> .OELPSC,PE,P(M> .DELPC.T(ll,T(M).Tll 
PUNCH  4046 

PUNCH  4047,FEXD(M1 ,FML0,XD12 (Ml »REBD(M) .RE30J 1I.Q(MJ,QT.T11 
PUNCH  404a 

PUNCH  4049.  CM(M).C10IM.ETATS.PS£01,PDAV»TCWAV.TWMAX»T11 
PUNCH  4055 

PUNCH  4056.  TCMAX.GWT.CLO.ACC.WPC.FPC.GV.Tll 
PUNCH  4001,  (TlTLEin,lal.l2»  . 

PUNCH  4070 

PUNCH  4080.(XL(n,CM<It.TS(I).T(n.PS(n.Ptn.RHOI(I|.I<il,M) 

PUNCH  4001,  (TITLE< n .I“1.12) 

PUNCH  4090 

PUNCH  4100 , ( XPL I  I )  .DQQOXL ( I ) . TW ( I ) .TC ( 1 1 ,PDI 1) .  1  »1 ,M) 

PUNCH  4001,  ITITLE(n.l*l.l2) 

PUNCH  4110 

PUNCH  4120, (YL( 1 1 ,FIY0( I ) ,FEXD( 1 1 ,YD12( 1) ,QY( 1) ,Q( I ) ,REBD( 1) , I»1,M 
1) 

4001  F0RMAT(1H1A5,11A61  . 

4010  FORMAT(6F10,3,14X,A6) 

4011  FORMAT(5F10.3,24X,A6) 

4030  FORMAT (69HOOIMENSIONS  OF  VARIABLES-P(PSI ) »  TIDEGREES  Rl»  QtBTU/LB) 
1,  L  AND  D( INI) 


4041  FORMAT I68H0  ISP 

ISPMAX 

W/A 

CME 

F/A 

F 

1/A  F/A-POl) 

4042  FORMAT (60H  LB-SEC/LB 

LB-SEC/LB 

6M/CM-SEC 

GM/CM2 

LB 

1/FT2) 

4043  FORMATI3F10.3,F10.6,2F10,2,F10. 

6»4X,A6) 

4044  FORMAT (69H0  PSM 

OELPS 

PE 

PM 

DELP 

1  TE  TKI 

4045  FORMAT(7F10,3,4X,A6) 

4046  FORMAT (68H0  FEL/D 

FML/0 

U/D12 

REBM/D 

REBE/D 

10  QT) 

4047  FORMAT(2F10.6,F10,3, 

4048  FORMAT (68H0  CMM 

2Fi0,0,2F10 

I/IMAX 

•2,4X,A6) 

ETATS 

PSE/PSl 

PDAV 

TCW 

lAV  TWMAX) 

4049  FORMAT(4F10.6,3F10,3 

4050  FORMAT! 58H0  TSE 

,4X,A6) 

PSE 

WA 

TSRI 

PSRI 

T 

IWM) 

4051  FORMAT (48H0  L 

V 

D 

X 

K) 

4055  FORMAT (68H0  TCMAX 

GWT 

L/D 

ACC 

WPC 

F 

IPC  GV) 

4056  FORMAT(3F10.3,4F10,6,4X,A6| 

4070  F0RMAT<69H  •  X/U  ’  M  TS 

1  P  1000  RHO) 

4080  FORMAT(OP2F10.6,4F10.3,3PF10.6) 

4090  FORMAT (48H  XP/L  DQQOXL  TW 

4100  FORMAT(2F10.6,3F10.3» 

4110  F0RMAT(68H  Y/L  FIY/O  FEX/D 

I  Q  REB/Df 

4120  FORMAT(3F10.6»F10.3,2F10,2,F10.0> 

3995  RETURN 
END 


TC 

Y/012 


PS 

PD) 

QY 
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LIST 

LA3EL 


STl 

CALCULATION  OF  STRESSES  IN  ANNULAR  ELEMENT 

GRADIENT  OF  RADIAL  STRESS  EQUALS  ZERO  ON  OUTER  BOUNDARY 

SUBROUTINE  ST 

COMMON  A»B*TS»PS»T,P,CM»TITLE»NPR,NPU»NGR»TSE»PSE»WA* 

ITSRI tPSRI »TWM.CL »V»0»UULIE»N»PNE »PD»ALPHA,E,PNU»TK,M# 
2SIGR»SIGO»SIGZt30»TR ♦TE.SR,SE*RAD»AC»EWTC»EWTR»EWTE»EWTT» 
3RHOPS»SIGPSiP5MAX*DELTA.DELPA»WP»RHON»SIGMAN,CI ,CIMAX* 
4WAG»CME,CFAP,CFAPS,DELPSC»PE»DELPC ,FEXD,FMLD»XD12,REBD» 

5Q»QT ,cioim,etats.pseoi »PDAV»TCWAV»TWHAX»TCMAX»GWT,CLD»ACC» 
6W?C»FPC.GV»XL.RH0I .XPL,DQQDXL*TW»TC»YL»FIYD,FEXD»YD12»QY» 
7RAD»AC»WPS,TPS.DT,v;NC,WND,WN»AE*DE»CNL»DNL»WTP»PTP»SIGST» 
8SIGSTP  »SIGSH,SIGSE,SIG0E,PNE»PEN»WSYS.QBARfX8AR 
9,C0NDK»C0NDR,CFA.RLD»SIGSHM*SIGDEM,PNEX,CIEX»THRUST»WBL  »YW»HPP 
DIMENSION  A(6»40 ) ♦eC 6*40) ,TS( 200 ) .PS( 200 ) »T( 200)  fPl 200) » 

1CM{ 200 ) .TITLE ( 12 ) » PD ( 200 ) , S I GR ( 200 ) »SIGO( 200 ) »SIGZ( 200) * 
2FEXD(200) »X012{200) » REBD ( 200 ) ♦ 0 ( 200 ) .XL(200) » 

3RHOI (20  0 ) »XPL( 200 ) . DQQDXL  (  200 ) . TW ( 2 00 ) ♦ TC ( 200 ) »YL(200) * 
4FIYD(200) »YD12(200) .QY(200) 

5.SIGST{200),SIGSTP(200).SIGSH{200) »SIGSE(200) »SIGDE(200) 
6,QBAR( 100) ,XBAR( 100) 

R=D/2,0 

S=1.0-V 

AB=SQRTF(V) 

B=R/AB 

RLV=-LOGF( AB) 

ALPHAF=ALPHA 

EPSI=E 

TKBFT=TK*12.0 

R3=AB 

RB2=V 

PDCF= 10. 0**6* 3, 4 1275/3600,0 
AFT=R/12.0 

GSIG2=ALPHAF*EPSI*PDCF*AFT**2/ ( 4,0*( 1,0-PNU)*TKBFT*V*S) 

SIGSHM=0.0 

SIGDEM=0,0 

DO  500  1=1, M 

GSIG1=GSIG2*PD( I ) 

SIGRd  )=-P(  I  ) 

SIGZ( I ) =GSrGl*( 2.0*RLV/S-(3.0-V)/2.0) 

SI60( I ) =-P( I )+GSIGl*S**2/(2,0*V) 

SIG3=S1GR(I) 

IF  (SIGO{ I )-SIG2( I ) )  90.90»100 
90  SIG1=SIGZ<I) 

SIG2=SIGO{I) 


D-38 


GO  TO  110 
100  SIG1=SIG0(1) 

SIG2=SIGZ(I) 

1  !>:•  SIGSK  I  )=SIG1~PNUJ^(SIG2+SI63) 

SIGSTP(  I  )  =  SIG3-PNU<^{SIG1+SIG2) 

SIGSH( I )=SIG1-SIG3 

SIGSE(  I  )=SQRTF(SIGl«-*2+SIG2**2  +  SIG3**2-2.0»PNU*(SIGl«SIG2  + 
1SIG2^^SIG3+SIGH^SIG3)  ) 

SIGDE(  I  )=S0RTF(  (  1.0+PNU)4K  (  S  I G 1-S 1 62  )  2+ (  S I G 1-S I G3  >  »*2 

l  +  (SIG2-SIG3)*^^2)/3.0) 

IF  (SIGSH( I )-SIGSHM)  160,160»150 
1*30  SIGSHM  =  SI6SH{  I) 

160  IF  (5IGDE( I )-SIG0EM)  500»500»170 
170  SIGDEM=SIGDE( 1) 

500  CONTINUE 
RETURN 
END 
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*  LIST 

»  LABEL 

CPRSTl 

PRINTING  OF  RESULTS  FROM  STRESS  CALCULATIONS 
SUBROUTINE  PRST 

COMMON  A.B.TS»PS.T.P*CM,TITLE.NPR,NPUiNGR»TSE#PSE»WA» 

ITSRI »PSRI »TWM»CLiV.D» JULIE.N»PNE*POiALPHA»E,PNUiTIC»M» 
2SIGR»SIGO.SIGZfBOiTRtTE.SR»SE.RAO»AC*EWTC»EWTR*EWTE»EWTT» 
3RHOPStSIGPS»PSMAXiDELTAtOELPA tWP»RHON»SIGMAN»CI *CIMAX# 
4WAG»CME.CFAP,CFAPS.DELPSC.PE.DELPC*FEXD.FMLD»XD12,REBD» 
SO.QTfCIOIMiETATS.PSEOI tPDAV f TCWAV. TWMAX *TCMAX »GWT ,CLD .ACC » 
6WPC.FPC.GV.XL.RH0I .XPL.DQQDXL. TW. TC.YL.fi  YD. FEXD.YD12.QY. 
7RAD.AC.WPS.TPS.DT.WNC.WN0.WN.AE.DE.CNL.DNL.WTP.PTP.SIGST. 
8SIGSTP.SIGSH.SIGSE.SIGDE.PNE.PEN.WSYS.QBAR.XBAR 
9.CONDK.CONDR.CFA 

DIMENSION  A(6.40).Bt6.40).TS{200).PS(200).T<200).P<200). 
1CM(200) .TITLE! 12 ) .PD (200) .SIGR(200) .SIGO( 200) .SIG2(2C0) • 
2FEX0(200) .XDl 2(200 ) .REBD( 200) .0(200) .XL (200) . 

3RHOI(200)  .XPL(200)  .,DQQ0XL(200)  .TW(200)»TC(200)  .YL(200). 
4FIYD(200) .YDl 2(200 ) .QY( 200) 

5.SIGST(200).SIGSTP(200).SIGSH(2QO).SIGSE(200) .SIGDE(200) 
6.0BAR( 100) .XBAR(IOO) 

PRINT  4001.  (TITLE! I) .1-1.12) 

PRINT  1108 
PRINT  1109 

PRINT  1110.  ALPHA. E.PNU.TK 
PRINT  1118 
PRINT  1119 
PRINT  1120.  D.V 
PRINT  4001.  (TITLEd)  .l«ltl2) 

PRINT  1150 
PRINT  1160 
PRINT  1170 

PRINT  lieO.  (XL( I ) .P( I ) .PD( I ) .SIGO( I ) .SIGZ( I ) .SIGR( I ) »I»l»Ml 
PRINT  4001.  (TITLE(I).I"1.12) 

PRINT  1190 
PRINT  1200 

PRINT  1210.  (XL ( I ) .SIGST( I ) .SIGSTPJ I ) ,SIGSH( I ) .SIGSE( I ) 
l.SIGDE(I).I»l»M) 

IF  (NPU)  20.20.10 
10  TI1»T1TLE(8) 

PUNCH  1108 
PUNCH  1109 

PUNCH  1110.  ALPHA. E.PNU.TX. Til 
PUNCH  1118 
PUNCH  1119 
PUNCH  1120.  D.V.TIl 
PUNCH  1150 
PUNCH  1160 
PUNCH  1170 

PUNCH  1180.  (XL(I).P(I).PO(I).SIGOlI).5IGZ(n»51GR(I)»l>l.M) 
PUNCH  1190 
PUNCH  1200 

PUNCH  1210.  (XL(I).SIGST(n»SlGSTP(I).SIGSH(I)»SlGSE«n 
l.SIGDE( 1)»I>1.M) 

20  continue 
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1108  FORMAT «58H0 
IK) 

1109  FORMAT) 58H  1/OEG  F  PSI  BTU/IN-SEC 

1-F) 

1110  FORMAT(4E15.5.14XiA6) 

1118  FORMAT(18HO  D  V) 

1119  FORMAT(9H  IN.) 

1120  FORMAT<2F10.3»94X#A6) 

1150  FORMAT (52H0STRESS  CALCULATIONS  FOR  ZERO  STRESS  GRADIENT  AT  R«B) 


1160  FORMAT! 58H0  XL 

IGR) 

P 

PD 

SIGO 

SIGZ 

SI 

1170  FORMAT (S9H 

ipsn 

1180  FORMAT(FlOt4*2F10.3i 

PSIA 

3F10.1) 

MW/FT3 

PSI 

PSI 

1190  FORMAT(9eHO  XL 

IDE) 

SIGST 

SIGSTP 

SIGSH 

SIGSE 

SIG 

1200  FORMATI99H 

IPSI) 

1210  FORMAT(F10.4.5F10.1) 
4001  F0RMAT(1H1AS»11A6) 
RETURN 

END 

PSI 

PSI 

PSI 

PSI 
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LIST 

*  LABEL 

CRCSW2 

CALCULATION  OF  REACTOR  CRITICAL  SIZE  AND  WEIGHT 
SUBROUTINE  RCSW 

COMMON  A»B»TS»PS»TiP»CM»TITLE*NPR,NPU»NGR  »TSEtPSE»WA» 
ITSRI »PSRI »TWM»CL»V.DiJULIE»N»PNE»PD,ALPHA»E|PNU»TK»M» 
2SIGR»SIG0iSIGZ»80»TR»TE»SR»SEiRAD»ACiEWTC»EWTRiEWTE»EWTT» 
3RHOPS,SIGPS.PSMAX»DELTA»DELPA*WP»RHON*SIGMAN»CI »CIMAX» 
4WAG»CME»CFAP»CFAPS*DELPSC»PE»DELPC,FEXD»FML0»XD12,REBD# 
5G.QT,CIOIM,ETATSfPSEOI »PDAy ♦ TCWAV » T WMAX , TCMAX f GWT » CLD » ACC # 
6WPC,FPC»GV»XL»RH0I »XPL,DQQDXL,TW.TC»YL.FIYD»FEXD»YD12»0Y» 
7RAD.AC»WPS.TP5.DT.WNC»WND»WN»AE»DE*CNL»DNL»WTP»PTP»SIGST» 
8SIGSTP  »SIGSH»SIGS£.SIG0E,PN£.PEN,WSYS»Q8AR»XBAR 
9  ,CONDK»CONDR»CFA 

DIMENSION  A(6.40  )  »B(6»40) »TS( 200) ♦PS( 200 ) »T ( 200  >  »P{ 200) # 
1CM(20C) »7ITLE( 12)  . PD ( 200 ) , S I GR ( 200 ) .SIGO( 200) »SIGZ(200) f 
2FEXD ( 200 ) *XD12{ 200) ,REB0( 200) *0(200) » XL (200) » 

3RH0I (200 ) jXPLC  2  00  )  » DQGDXL ( 200 ) ♦ TW ( 2  00 ) » TC ( 200 ) »YL(200) » 
4FIYD(200) ♦YD12( 200) »GY(200) 

5, SI GST (  200  )  ,SIGSTP(200) ♦SI6SH( 200) »SIGSE{ 200 ) ♦ SI GDE ( 200 ) 
&»QBAR( 100) ♦X3AR( 100) 

HE=2.54*CL 
R=2.54*RAD 
TR=2.54*TR 
TE=2.54*TE 
DENC=1.659 
DENR=1.85 
DENE=DENR 
SC=1,0-V 

1100  AC0R=3. 1416*R**2 

AC=ACOR*(  1,0-50*0.0001 
EWTC=ACOR*HE*SC*DENC*0,001 

EWTR={ 3,1416*(R+TR)**2-ACOR)*(HE+TE)*DENR*SR*0,001 
EWTE=ACOR*TE*SE*DENE*0,001 
EWTT=EWTC+EWTR+EWTE 
RAD=R/2.54 
TE=TE/2.54 
TR=TR/2.54 

AC=10000,0*AC/( 144.0*2,54**2 ) 

EWTC=2.2*EWTC 
EWTR=2.2*EWTR 
EWTE=2.2*EWTE 
EWTT=2.2*EWTT 
RETURN 
END 
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*  LIST 

*  LABEL 
CPRRSWl 

PRINTING  OF  RESULTS  FROM  REACTOR  SIZE  AND  WEIGHT  CALCULATIONS 
SUBROUTINE  PRRCSW 

COMMON  A#B.TS»PStT,P.CMiTlTLE.NPR,NPUiNGR»TSE»P£''*WA» 

ITSRI fPSRI iTWM»CL«V»D»JULIE»N.PNE»PDiALPHA»E»PNU»TKi 
2SIGR.SIGO»SIG2*BO.TR.TEtSR»SE»RAD»AC»EWTC»EWTR»EWTE»EWTT» 
3RHOPS,SIGPS.PSMAX*DELTA»DELPA»WP»RHON*SIGMAN»CI .CIMAXi 
4WAG.CME.CFAPiCFAPS»DELPSC*PE»DELPCiFEXD#FML0»XD12,REB0» 
5Q»QT»CIOIM»ETATS»PSEOI »PDAV»TCWAV»TWMAX*TCMAX »GWT ,CLO»ACCi 
6WPC»FPC*GV*XLtRHOI »XPL,DQQDXL»TW»TC»YL,FlYD»FEXD»YD12»OYt 
7RAD»AC»WPS*TPS*DT»WNC»WND»WN*AE»DE»CNL*DNL»WTP»PTP»SIGST» 
8SIGSTP.SIGSH»SIGSEtSIGDE»PNE*PEN»WSYS»C)BAR»XBAR 
9.CONDK»CONDR*CFA 

DIMENSION  A(6i40)fB(6»40)»TS(200)»PS(200)»T(200)»P(200)» 

1CM(200) » TITLE (12) *90(200 )»SIGR (200) *SIGO( 200) »SIG2( 200)* 

2FEXD(200) »XD12(200) •REBO( 200 ) *0(200 ) »XL( 200) * 

3RH0I (200) *XPL(200) *DQQDXL(200) *TW(200) *TC(200) *YL(200)» 

4FIYD(200) *YD12(200) *QY(200) 

5*SIGST(200)*SIGSTP(200) *SIGSH(200) *SIGSE(200> *SIGDE(200) 

6*QBAR( 100) *XBAR(100) 

PRINT  4001*  (TITLE(l)*I«l»12) 

PRINT  2005 
PRINT  2006 

PRINT  2007*  CL»TE»TR*SR»SE»BO 
PRINT  2008 
PRINT  2009 

PRINT  2010*  RAD*AC*EWTC»EWTR»EWTE*EWTT 
IF  (NPU)  20*20*10 
10  TI1-TITLE(8) 

PUNCH  2005 
PUNCH  2006 

PUNCH  2007*  CL*TE*TR*SR*SE*BO»TIl 
PUNCH  2008 
PUNCH  2009 

PUNCH  2010*  RAD*AC*EWTC*EWTR*EWTE»EWTT*T11 
20  CONTINUE 

2005  F0RMAT(5eH0  L.  TE  TR  SR  SE  . 

IBO)  . 

2006  FORMAT(5,9H  IN.  IN.  •  IN.  1/ 

1CM2) 

2007  FORMAT(5F10.3*F12.8*12X*A6) 

2008  FORMAT (58H0  RAO  AC  EWTC  EWTR  EWTE  EW 

ITT) 

2009  FORMAT(59H  IN.  FT2  LB  LB  LB  . 

1  LB) 

2010  F0RMAT(6F10.2*14X*A6) 

4001  F0RMAT(1H1A5*11A6) 

RETURN 
END 
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♦  LIST 

♦  LABEL 
CPRSHl 

CALCULATION  OF  PRESSURE  SHELL  WEIGHT 

RHOPS  IS  IN  LB/FT3 
DR  AND  CLR  IN  FEET.  WPS  IN  POUNDS 

SUBROUTINE  PRSH 

COMMON  A.B.TS.PS.T.P.CM.TITLE.NPR.NPU.NGR.TSE.PSE.WA. 
ITSRI.PSRI.TWM.CL.V.D.JULIE.N.PNE.PD.ALPHA.E.PNU.TK.M, 
2SIGR.SIGO.SIGZ.BO.TR.TE»SR.S£»RAD»AC»EWTC»EWTR»EWTEiEWTT» 
3RHOPS.SIGPS.PSMAX.DELTA.DELPA.WP.RHON.SIGMAN.CI .CIMAXt 
4WAG.CME.CFAP.CFAPS.DELPSC.PE.DELPC»FEXD.FMLD»XD12.REBD» 
SQ.QT.CIOIM.ETATS.PSEOI .PDAV.TCWAV.TWMAX.TCMAX.GWT.CLO.ACC* 
6WPC.FPC.GV,XL.RH0I .XPL.DQQDXL.TW. TC.YL.fi  YD .FEXD.YDIZ.QY. 
7RAD.AC.WPS.TPS.0T.WNC.WND.WN.AE.DE.CNL.DNL.WTP.PTP.S1GST. 
8SIGSTP.SIGSH.SIGSE.SIGDE.PNE.PEN.WSYS.QBAR.XBAR 
9.CONDK.CONDR.CFA.RLD.SIGSHM.SIGDEM.PNEX.CIEX.THRUST»WBL»YWiHPP 
DIMENSION  A(6.40).B(6.40)»TS(200).PSi200).T(200).P(200). 
1CM(2D0) .TITLE(12) .PD(200) .SI6R(200) .SIGOJ200) »SIGZ(200> » 
2FEXD(200] .XD12( 200) .REBD(  200) .0(200). XL (200) . 

3RHOI(200) .XPL(200) .DQQDXL(200).TW(200) .TC(200) .YL(200). 
4FIYD(200) .Y012(200) .QY(200) 

5.SIGST(200) »SIGSTP(200) .SIGSH(200).SIGSE(200).SIGDE(200) 
6.0BAR(100)  .XBARdOO) 

DR«2.0*(RAD+TR)/12.0 
CLR«(CL+TE)/12.0 

WPS«3.14159*RHOPS«0R»»2*CLR»PSMAX*(1.0+DR/(4.0*CLR) )/(2.0*SlGPS) 
TPS«12.0»PSMAX*DR/(2.0»SrGPS) 

RETURN 
END 
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»  LIST 

*  LABEL 

TPl 


CALCULATION  OF  TURBOPUMP  WEIGHT 
PTP  IS  IN  PSIA  AND  WP  IS  IN  L8/SEC 


SUBROUTINE  TP 

COMMON  A.B»TS»PS»T,P,CM,TITLE»NPR,NPU»NGR»TSE»PSE»WA» 

ITSRI »PSRI »TWM»CL .V.D»JULIE»N»PNE*PD»ALPHA»E,PNU»TK»M» 

2  S I GR  » S I  GO . S I GZ  »  QO ♦ TR ♦ T  E  » SR  » S E  »  RAD  » AC  »  EW  TC  »  EWTR  »  EWTt  »  EWT  T  » 
3RHOPS,SIGPS*P5MAX»D£LTA.DELPA,WP*RHONf SIGMAN.CI fCIMAX# 
4WAG»CME»CFAP.CFAPS*DELPSC»PE»DELPC .FEXD»FMLD»XD12,REBD» 
5Q,QT,CIOIM»ETATS»PSEOI » PDAV » TCWAV , T WMAX , TCMAX » GWT , CLD » ACC . 
6WPC»FPC,GV,XL.RHOI »XPL»DOQDXL.TW»TC»YL»FI YD#FEXD#YD12»QY» 
7RAD»AC» WPS  »  TPS*  DT.WNC  » WND»WN, AE»DE*CNL  »DNL  fWTP.PTPf SIGSTt 
8SIGSTP*SIGSH,SIGSE,SIGDE,PNE»PEN*WSYS»QBAR»XBAR 

9. C0NDK.C0NDR*CFA*RLD,SIGSHM*SIGDEM,PNEX»CIEX» THRUST ♦WBL»YW.HPP 
DIMENSION  A(6»40) *B( 6*40) fTSI  200) *PS( 200 ) ♦Ti 200 ) »P(200)  » 

ICM (200 )» TITLE! 12) *PD ( 200 ) * S IGR ( 200 ) »SIGO( 200) »SIGZ(200) » 
2FEXD(200) *XD12(200) ,REBD(200) *0 ( 2 00 ) » X L ( 200 ) ♦ 

3RHOI (200) ♦XPL(2  0C ) * DQQDXL ( 200 ) .TW(200) » T C ( 200 ) ♦ YL ( 200  )  t 
4FIYD(200) ♦YO12(200) ,GY(200) 

5»S!GST(2G0) . S I GSTP ( 200 ) * S IGSH ( 200 ) » S I GSE ( 200 ) » S I GDE t 200 ) 

6 tOSAR ( 100 ) jXBAR ( 100 ) 

PTANK=20.0 

EFFTPs0,50 

EFFP=SQRTF(EFFTP) 

DELHT=1775.0 

RH0LH*4*4 

PTP=1.33*PSMAX 

Y W=144.0*{PTP-P TANK) / (778. 0*EFFTP*RH0LH*DELHT) 

HPP  =  144.0*WP*  (  PTP-PTANK)/(550.0*EFFP»-RH0LH) 

W8L=YW*WP 

WTP=0,00251*PTP*WP 

RETURN 

END 
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♦LIST 
*  LABEL 
CNOZl 

CALCULATION  OF  NOZZLE  SIZE  AND  WEIGHT 

RHON  IS  IN  LB/FT3.  DR  AND  DT  ARE  IN  FT 
HALF  ANGLE  OF  CONVERGENT  SECTION  IS  30  DEGREES 
HALF  ANGLE  OF  DIVERGENT  SECTION  IS  15  DEGREES 

SUBROUTINE  NOZ 

COMMON  AiB.TS»PS.T.PiCM*TITLE.NPRiNPU.NGRtTSEiPSE»XX» 

ITSRI *PSR I »TWM* CL. V.Dt JULIE, N .PNEiPDi ALPHA »E|PNU»TK»M» 
2SI6R,SIGO,SIGZ.BO,TR,ZZ.SR,YY,RAD,AC.EWTC,EWTR,EWTe,EWTT» 
3RHOPS,SIGPS,PSMAX,DELTA,DELPA,WP.RHON.SIGMAN,CI.CIMAX, 
4WAG.ZZZ.CFAP,CFAPS,DELPSC»WW»DELPC,FEXD,FMLD»XD12,REBD» 
SQ.OT.CIOIM.ETATS.PSEO! .PDAV.TCWAV.TWMAX.TCMAX.GWT .CLD.ACC* 
SWPC.FPC.GV.XU.RHOI .XPL .DQQDXL , TW , TC » YL . FI  YD , FEXD , Y012 »QY » 
7RAD,AC,WPS,TPS.DT»WNC,WND,WN,AE.DE,CNL,DNL,WTP,PTP»SIGSTf 
SSIGSTP.SIGSH.SIGSE.SIGDE.PNE.PEN.WSYS.QBAR.XBAR 
9,C0NDK,C0NDR.CFA,RLD,SIGSHM»SIGDEM,PNEX,CIEXfTHRUST,WBLiYW»HPP 
DIMENSION  At6,40)»B(6»40)»TS{  200) »PS(200)  ,T«200  )  .P<200) » 
1CM(200) .TITLEI12) .PD(200) ,SIGR(200) .SIGO(200).SIG2(200) » 
2FEXD(2Q0) .XD12( 200) ,REBD( 200) .0(200), XL (200), 

3RHOI t 200 ), XPL (200) .DQQDXL (200) .TW { 200 ) iTCI 200 ) , YL ( 200 ) » 
4FIYD{200),YD12(200),QY(200) 

5,SIGST(20C),SIGSTP(200).SIGSH(200) »SI6SE(200),SIGDE(200) 
S.OBARdOO)  (XBARdOO) 

R-1.9859 
RBAR«82,0618 
GGCSa980.665 
GCM=1033.23 
TSE“TSE/1.8 
DELTA»0ELTA/1.8 

CALL  PROPS  (TSE.PSE.A,B.-1,JULIE.W.Z,RH0,HSE,SSE,CP,GAMSE, 
IDHP.DST .DSP.OMEGT.OMEGP.SIGT.SIGP.ZETAT.ZETAP.EMU.CLAM.PR) 
GME=1.0+( (GAMSE-1.0)/2.0) 

10  TT=TSE/GME 

PT=PSE/GME**(GAMSE/(GAMSE-1.0) ) 

20  CALL  PROPS  ( TT .PT  . A , B ,+l , JUL I E .WT .Z »RHOT , HT , ST ,CPT .GAMT ,DHPT , 
IDSTT.DSPT.OMEGTT.OMEGPT.SIGTT.SIGPT.ZETATT.ZETAPT.EMU.CLAM.PR) 
CM2=2.0»WT*(HSE-HT)/(GAMr#R^TT) 

CMT=SQRTF(CM2> 

DELM2=1.0-CM2 
DELS=SSE-ST 

DM2DT=-CM2*(1.0-OMEGTT+ZETATT+CPT*TT/{HSE-HT) )/TT 
DM2DP=CM2* (OMEGPT-ZETAPT-PT*DHPT/ ( HSE-HT ) ) /PT 
DELT=(DM2DP*DELS-DSPT*DELM2)/(DM2DP»DSTT-DM2DT*DSPT) 
DELP=(DELS-DSTT»DELt)/DSPT 
IF  (ABSF(DELT)-DELTA)  50,50,60 
50  IF  (ABSF(DELP)“DELPA)  80,80,60 
60  TT=TT+DELT 
PT=PT+DELP 
GO  TO  20 

80  VT=SQRTF(6AMT*RBAR*TT*GGCS*GCM/WT)  ■ 

WA«RHOT#VT 

WAP=WA»(30.48^^2)/453.5924 
AT=(1,0-YW)^WP/WAP 
DT»SQRTF(4.0»AT/3. 14159) 
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DR-2.0*(RAD+TR>/12.0 

WNC-1.5*3.14159*RHON»DR»PSE'»<DR**2-DT#*2)/(B»0* 

1SINF(3.14159/6.0>*S1GMAN) 

Cl»0.147 
C2»0. 000268 
C3»0. 0000117 
PStF«144.0»PSE 
AET-SO.O 

WND=C1*DT»*2*PSEF»*( 1.0/3. 0)*(AET-1,0)+C2*PSEF*DT**3* 

1( AET*#( 1.0/6. 0) -1.0) +C3*PSEF*0T**3 
WN=WNC+WNO 
WANE=WA/AET 
CME*5,0 

GME=1.0+nGAMSE-1.0)/2.0)*CM£**2 

TE=TSE/GME 

PE=PSE/GME**(GAMSE/(GAMSE-1.0) ) 

1250  CALL  PR0PS(TE.PE»A.B.+1 . JULl E »kE» Z »RHOE . HE .SE »CPE ,GAME»DHPE tOSTE* 
1DSPE.0MEGTE.0MEGPE.SIGTE.SIGPE.2ETATE.2ETAPE.EMU.CLAM.PR) 
CM2=2.0*WE*(HSE-HE)/(GAME*R*TE| 

CME=SQRTF(CM2) 

VE=Cy,E*SQRTF(GAME*RBAR*TE*G6CS*GCM/WE) 

DELWA=WANE-RHOE«VT 

DELS=SSE-SE 

DWADTsW.A»(  (OMEGTE-SIGTE-1.0)/TE-CPE/(2.0*<HSE-HE) )) 

DWAOP=WA*( (OMEGPE-SIGPE+1.0>/PE-DHPE/(2.0*(HSE-HE») ) 
DELT»(OWADP*OELS-DSPE*DELWA)/(DWADP*DSTE-DWADT*DSPE) 
DELP=(DELS“0STE*DELT»/0SPE 
1320  IF  (ABSF(DELT)-DELTA)  1330.1330.1340 
1330  IF  (ABSF(DELP)-OELPA)  1370.1370.1340 
1340  TE-TE+OELT 
PE«PE+DELP 
GO  TO  1250 
1370  PNEX-PE 

CALL  SIMPdSE.PSE.PNEX.CIEXI 
AE»AET*3. 1416*07**2/4.0 

CNL«12.0*<0R-0T )/ (2. 0*TANF( 3. 14159/6.0 ) » 

DT=12.0*DT 
OE=DT*SQRTF( AET) 

DNL=(OE“DT )/ (2. 0*TANF( 3.14159/12.0) ) 

TSE=1.8*TSE 

DELTA=1.8*DELTA 

PENaAET 

RETURN 

END 
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LIST 

LABEL 


«• 

It 

CRM  IS  1 

MISSION  CALCULATIONS 
SUBROUTINE  RMIS 

COMMON  A*B»TS»PS»T,P  » CM » T I TLE  » NPR , NPU » NGR » TSE »PSE » WA » 

IT SR I fPSRI ,TWM,CL  » V » D ♦ JUL I E ,N , PNE , PD » ALPHA » E » PNU » TK ,M , 
2SIGR»SIG0»SIGZ9B0»TR  *TE»SR»SE»RAD»AC»EWTC»EWTR»EWTE  »EWTT» 
3RHOPS»SIGPS»PSMAX»DELTA»DELPA»V;P»RHON»SIGiMAN»CI  »cimax» 
4WAG.CME*CFAP,CFAPS,DELPSC»PE.DELPC,FEXD,FMLD»XD12,REBDf 
5G»QT,CI0IM»ETATS.PSE0I »PDAV»TCWAV.TwMAX,TCMAX»6WT»CL0»ACC» 
6WPC»FPC»GV,XL»RH0I .XPL,DQQDXL ♦TW, TC,YL»FI YD»FEXD»YD12»QY» 
7RAD»AC*V^?S,TPS$DT»WNC*WND»WN,AE»DE,CNL.DNL»WTP»PTP»SIGST» 
8SIGSTP,SIG5H,S1GSE,SIGDE,PNE»PEN»WSYS»QBAR»XBAR 
9  »C0NDK.C0NDR,CFA*RLD*SIGSHM»S IGDEM,PNEX,CIEX»THRU5T»WbL  »YW»HPP 
COMMON  VP  »  HP  ,  PT ANK. ,  R LAM » TP  ,  W H2  » W  T A NK  »  W E  ,  WG » FOWG  i  WS  »  WDL  »  WPL 
1»CBAR,CISP 

DIMENSION  A(5»40 ) »B(6»4C) »TS( 20C ) »PS( 200 ) »T( 200) ♦P(200) ♦ 
1CM(200) »TITLE( 12) *PD( 200 ) ,SIGR ( 200 ) ,SIGO( 200) »SIGZ( 200) » 
2FEXD{200),XD12(200) ,REBD{200) . Q ( 2 00 ) ♦ XL ( 2 00 ) ♦ 

3RHOI (200) »XPL{ 200 ) »DQQDXL( 200 ) » TW ( 200 ) » TC ( 200 ) »YL(200) » 

4FIYD( 200 ) ♦YD12( 200) ,OY( 200) 

SiSIGST ( 200 ) ,SIGSTP(20C ) ♦SIGSH{ 200 ) »SIGSE( 200 ) »SIGDE( 200) 
6,Q3AR( 100) ,XBAR ( 100) 

G=32.174 
PTANK=20.0 
CISP=CI»(1.0-YW) 

CBAR  =  32.174^tCISP 
TPA=0.1 
TP=0.0 
TPP=0,0 

ATP=G/(2.0*CBAR) 

DTP=HP/CBAR 

10  RLNLAM=(VP+G*TP)/CBAR 
RLAM=EXPF( RLNLAM) 

BLAM=1.0-RLNLAM/ (RLAM-1.0) 

IF  (BLAM**2-4.0*ATP*DTP)  15»15.17 
15  TP=TP+10.0 
GO  TO  20 

17  TP=(BLAM-SQRTF(3LAM**2-4.0*ATP*DTP) )/(2.0*ATP) 

IF  { ABSF( TP-TPP )-TPA)  30,30*20 
20  TPP=TP 
GO  TO  10 
30  WH2=WP*TP 

WTANK=6.88E+07*( 1.131 E-ll*WH2»PTANK**3+0. 00407 )/ (PTANK#*2) 
WE=WH2/ (RLAM-l.O) 

WG=WE+WH2 
FOWG=THRUST/WG 
WS=0.02«WG 
WDL=WE-WTANK-WSYS 
WPL=WDL-WS 
RETURN 
END 


D-48 


nr* An  •  * 


LIST 

LABEL 


PRINTING  OF  RESULTS  FOR  NUCLEAR  ROC<ET  SYSTEM 
SUBROUTINE  PRSYS,' 

COMMON  A. BiTSiPS.T »P. CM. TITLE tNPRiNPU. NCR »TSE»PSE*WA» 
ITSRI.PSRI.TWM.CL.V.O.JULIE.N.PNE.PD.ALPHA.E.PNU.TK.M# 

2S IGR »S IGO.S IGZ • BO. TR, TE.SR.se. RAD. AC. EWTC.EWTR.EWTE.EWTT. 
3RHOPS. S IGPS. PSMAX. DELTA. OELPA.WP.RHON.SIGMAN. Cl .CIMAX. 
AWA6.CME.CFAP.CFAPS.DELPSC.PE.DELPC.FEXD.FMLD»XD12,REBD» 
50.QT.CI01M.ETATS.PSE0I .POAV.TCWAV.TWMAX.TCMAX.GWT.CLD.ACC* 
6WPC.FPC.GV.XL.RH0I.XPL,DQQDXL,TW.TC.YL.FIY0.FEXD.y012»QY. 
7RAD.AC.WPS.TPS.0T»WNC»WND.WN,AE»DE,CNL.DNL.WTP.PTP,SIGST» 
aSI6STP.SIGSH.SIGSE.SIGDE.PNE.PEN.WSYS.QBAR.XBAR  • 
9.C0NDK.C0NDR.CFA.RL0.SIGSHM»SIGDEM.PNEX.CIEX»THRUST»wBL»YW»HPP 
COMMON  VP.HP.PTANK.RLAM.TP.WH2.WTANK»WE.WG.F0WG.WS.WDL.WPL 
l.CBAR.CISP 

DIMENSION  A(6.40).B(6.40).TS(200) .PS(200) .T(200)  .PIZOO) » 
1CM(200) .TITLE(12>.PD(200).SIGR(200) »SIGO(200) .SIGZ(200)* 
2FEXD(200) .XDl 2(200 ) .REBD( 200) .0(200). XL (2001 • 
3RHOI(200).XPL(200).DQQDXL(200} .TW( 200). TC( 200) lYL 1200) » 
4FIYD(200) .YD12{2C0) .QY(200> 

5.SIGST(200) »SI6STP(200) .SIGSH(200).SIGd£(200) tSIGDE(200) 
6.QBAR(100)  .XBARdOO) 

AET»PEN 

CHN«WP/WPC 

qONAAV- 1000000. 0»POAV»RAO**2/{ 3. 41275»12.0»D»CHNI 

WSOWP»WSYS/WP 

WSOF-WSYS/THRUST 

RZET-l.O-l.O/RLAM 

POWSYS»-0.001035»a(M)*(1.0-YW)/WSOWP  •  ' 

WPLOWG-WPL/WG 

POWER»POWSYS»WSYS 

POWERT»POWER/ ( 1 »0^YW) 

POEWTT«POWER/EWTT 

PTEWTT=POWERT/EWTT 

POAC=POWER/AC 

PTAC=POWERT/AC 

PRINT  4001.  (TITLEd ).I»1.12) 

.  PRINT  4041 
■  PRINT  4042- 

PRINT  4043.  CI.CIMAX.WAG.CME.CFA.CFAP.CFAPS 
PRINT  4044-. 

.PRINT  4050'  .  :  ,  .  . 

PRINT  404!5.PS(M).D£LPSC.PE.)>(M)»bELPC.T(l)'rTtM)  • 

PRINT  4046 
PRINT  4051 

PRINT  4047.FEX0(M).FMLD.XD12(M).REBD(M),REB0(l).Q(M)iOT 
PRINT  4048 
PRINT  4052 

PRINT  4049.  CM(M).CIOIM.ETATS.PSEOI»PDAV»TCWAV.TWMAX 
PRINT  4055 
PRINT  4053 

PRINT  4056.  TCMAX.GWT.CLD.ACC.WPC.FPC.GV 
PRINT  2008  . 

PRINT  2009^ 

PRINT  2010.  RAD. AC. EWTC.EWTR.EWTEtEWTT 
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PRINT  1000 
PRINT  1010 

PRINT  I020»  TPSiWP3iRLD»SI(j5HM>SIGDEM 
PRINT  1030 
PRINT  1040 

PRINT  1050.  DTiDE.AE.AET.CNL.DNL 
PRINT  1060 
PRINT  1070 

PRINT  1080.  WNC.WND.WN.PNEX.CIEX. THRUST 
PRINT  1090 
PPINT  1100 

PRINT  1110.  WTP.PTP.WP.WBL.YW.HPP 
PRINT  1111 
PRINT  1112 

PRINT  1113.  CHN.QONAAV.WSOWP.WSOF.POWSYS.WPLOWG 
PRINT  1120 
PRINT  1130 

PRINT  1140.  EWTT.WPS.WN.WTP.WSYS 
PRINT  1150 
PRINT  1160 

PRINT  1170.  WH2.WTANK.WS,WE.WG»WDL,WPU 
PRINT  1180 
PRINT  1190 

PRINT  1200.  CBAR.CISP.PTANK.FOWG.RLAM.TP.R2ET 
PRINT  1210 
PRINT  1220 

PRINT  1230.  POWER. POWERT.POEWTT.PTEWTT.POAC.PTAC 
IF  (XASSFINPU))  20.20.10 
10  TI1*TITLE(8J 
PUNCH  4041 
PUNCH  4042 

PUNCH  4043.  CI.CIMAX.WAG.CME.CFA.CFAP.CFAPS.TI1 
PUNCH  4044 
PUNCH  4050 

PUNCH  4045 »PS(M) .DELPSC.PE.PIM) .DEUPC.TCl) .T(M) .Til 
PUNCH  4046 
PUNCH  4051 

PUNCH  4047.FEXD(M) .FML0.XD12<M) .REBD(M) .REBDIl > »Q(M) .QT.TIl 
PUNCH  4048 
PUNCH  4052 

PUNCH  4049.  CM(M) .CIOIM.ETATS.PSEOI .PDAV.TCWAV.TWMAX.TIl 
PUNCH  4055 
PUNCH  4053 

PUNCH  4056.  TCMAX.GWT.CLD.ACC.WPC.FPC.GV.TIl 
PUNCH  2008 
PUNCH  2009 

PUNCH  2010.  RAO.AC.EWTC.EWTR.EWTE.EWTT.Tll 
PUNCH  1000 
PUNCH  1010 

PUNCH  1020.  TPS.WPS.RUO.SIGSHM.SIGDEM.TIl 
PUNCH  1030 
PUNCH  1040 

PUNCH  1050.  OT.OE.AE.AET.CNL.DNL.TIl 
PUNCH  1060 
PUNCH  1070 

PUNCH  1080.  WNC.WND.WN.PNEX.CIEX. THRUST. Til 
PUNCH  1090 
PUNCH  1100 

PUNCH  1110.  WTP.PTP.WP.WBL.YW.HPP.Tll 
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PUNCH  1111 
PUNCH  1112 

PUNCH  1113.  CHN»OONAAViWSOWP»WSOFtPOWSYSiWPUOWG»Tll 
PUNCH  1120 
PUNCH  1130 

PUNCH  1140.  EWTT.WPS.WN.WTP.WSYS.Tll 
PUNCH  1150 
PUNCH  1160 

PUNCH  1170.  WH2.WTANK.WS.WE.WG.WDU.WPL.T11 
PUNCH  1180 
PUNCH  1190 

PUNCH  1200.  CBAR.CISP.PTANK.F0W6.RLAM.TP.R2ET.TI1 
PUNCH  1210 
PUNCH  1220 

PUNCH  1230.  POWER. POWERT.POEWTT.PTEWTT.POAC.PTAC.Tll 
PUNCH  4057 
1000  FORMAT (48H0 
1010  F0RMAT(48H 
1020  FORMAT(5F10, 

1030  FORMAT(58HO 
INL) 

1040  FORMAT(58H 
IN.  ) 

1050  FORMAT(6F104 
1060  FORMAT<58HO 
1ST) 

1070  FORMAT(58H 
ILB) 

1080  FORMAT(5F10. 

1090  FORMAT (58H0 
IPP) 

1100  FORMAT (58H 
IHP) 

1110  FORMAT(5F10. 

1111  FORMAT(58HO 
IWG) 

1112  F0RMAT(48H 

1113  FORMAT(2F10< 

1120  FORMAT(48HO 
1130  FORMAT (49H 
1140  FORMAT(5F104 
1150  FORMAT(68HO 

lOL  WPl 

1160  FORMAT(68H 
ILB  L) 

1170  FORMAT(7F10, 

1180  FORMAT{68HO 
ITP  R2E’ 

1190  FORMAT(58H 
lEC) 

1200  F0RMAT(2F10, 

1210  FORMAT(58HO 
lAC) 

1220  FORMAT ( 5 8H 
1T2) 

1230  FORMAT(2F10, 

2008  FORMAT (58H0 
ITT) 

2009  FORMAT (59H 


TPS 

WPS 

L/D 

SI6SHM 

SI60EM) 

IN* 

LB 

PS  I 

PSD 

3.24X.A6) 

DT 

DE 

AE 

AE/AT 

CNL 

IN. 

IN. 

FT2 

IN. 

3.14X.A6) 

WNC 

WND 

WN 

PNEX 

CIEX 

LB 

LB 

LB 

PSIA  LB 

-SEC/LS 

3.F10.1.14X.A6) 

WTP  PTP 

WP 

WBL 

YW 

LB 

PSIA  . 

LB/SEC 

■LB/SEC 

3.F10.1.14X.A6) 

CHN  QAV/A 

WS'.  S/WP 

WSYS/F 

P/WSYS 

BTU/HR-FT2 

LB-SEC/LB 

MW/LB) 

1.4F10.4. 

EWTT 

14X.A6) 

WPS 

WN 

WTP 

WSYS) 

LB 

LB 

LB 

LB 

LB) 

2.24X.A6) 

WH2 

.) 

LB 

1) 

il  .4X.A6) 
C0AR 

■) 

FT/SEC  LB 

WTANK 

WS 

WE 

W6 

LB 

LB 

LB 

LB 

CISP 

PTANK 

F/WG 

RLAM 

-SEC/LB 

PSIA 

I1.5F10.3. 

POWER 

4X.A6) 

POWERT 

P/EWTT 

PT/EWTT 

P/AC 

MW 

MW 

MW/LB 

MW/LB 

MW/FTi 

>1.2F10.3* 

RAD 

2F10.1.14X.A6} 

AC  EWTC 

EWTR 

EWTE 

IN. 

FT2 

LB 

LB 

LB 

D 

I 

THRU 


WPL/ 


PT/ 

MW/f 


D-51 


1  LB) 

2010  FORMAT{6F10.2*14X»A6) 

4001  FORMAT(lHlA5illA6) 

4030  FORMAT(69HODIMENSIONS  OF  VAR  1 ABLES-P ( PSI ) »  KDEGREES  R)»  0(STU/LB) 
1»  L  AND  0( IN) ) 

4041  F0RMAT(68H0  ISP  ISPMAX  W/A  CME  F/A  F 

1/A  F/A-POl) 

4042  FORMAT (60H  LB-SEC/LB  LB-SEC/LB  GM/CM-SEC  GM/CM2  LB 

1/FT2) 

4043  FORMAT(3F10t3»F10.6i2F10.2.Fl0.6»4XiA6) 

4044  FORMAT (69H0  PSM  DELPS  PE  PM  DELP 

1  TE  TM) 

4045  FORMAT(7F10.3»4X.A6) 

4046  FORMAT(68HO  FEL/D  FML/D  L/D12  REBM/D  RE8E/0 

1  Q  QT) 

4047  FORMAT(2F10.6fF10.3»2F10.0»2F10.2*4X»A6) 

4048  FORMAT(68HO  CMM  I/IMAX  ETATS  PSE/PSI  POAV  TCW 

lAV  TWMAX) 

4049  FORMAT(4F10.6t3F10.3*4XfA6) 

4050  F0RMAT(69H  PSIA  PSIA  PSIA  PSIA  PSIA  DE 

IG  R  DEG  R) 

4051  FORMAT(68H  •  1/IN. 2  1/IN  1/lN  BTU/ 

ILB  BTU/LB) 

4052  FORMAT(68H  MW/FT3  DEG 

1  R  DEG  R) 


4053  F0RMAT(68H 

DEG  R 

IN. 

IN2 

LB/SEC 

ILB 

) 

4055  FORMAT<68HO 

TCMAX 

GWT 

L/D 

ACC 

WPC 

F 

IPC  GV) 

4056  FORMAT(3F10.3.4F10.6»4X»A6) 

4057  FORMAT(9H  END) 

20  RETURN 

END 
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4.  Sample  Pz^oblem 

The  data  and  results  for  a  typical  run  are  presented  In 
this  section.  The  power  distribution  is  a  chopped  sine  func¬ 
tion  which  is  specified  analytically.  The  number  of  iterative 
steps  used  to  obtain  the  heat  transfer  characteristics  in  the 
reactor  is  50.  The  time  required  to  do  these  calculations  on 
an  IBM  7090  is  approximately  0.5  minutes. 
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DATA  FOR  SAMPLE  PROBLEM 


IROCKET  SYSTEM  CALC.-OOFx  FOR 
+  1  +1  0 

4668,000  800,000  0,858 

49,620  0,300  0,100 

14,6959  26000,0  1584000,0 

O,28OQ0E-O5  0,14000E+07 

3,150  1,181  0,900 

0,48400E+03  C,6C000E+C5 

0,48400E+03  0,60000E+05 

2,5000 


CHOPPED  SIN  RSSOOl 

+  2  50 

400,000  1200,000 

31,300 

0.33000E+00  0 

0,900 


05/11/64 

0,000 

7C000E-03 
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RESULTS  FOR  SAMPLE  PROBLEM 

ROCKET  SYSTEM  CALC.-QOFX  F  iR  CHOPPED, SIN  RSSOOl  05/11/64 
001-2.5000 

ROCKET  SYSTEM  CALC.-QOFX  FOR  CHOPPED  SIN  RSSOOl  05/11/64 


DIMENSIONS  OF  VAR  I ABLES-P  ( PS  1)  »  TIDEGREES  R).  Q(BTU/LB),  L  AND  DUN) 


TSE 

4668.000 

PSE 

800.000 

WA 

.858 

TSRI 

400.000 

PSRI 

1200.000 

TWM 

0. 

L 

49.620 

V 

•  300 

D 

.100 

K 

.125 

K 

30.240 

ISP 

LB-SEC/LB 

758.380 

ISPMAX 

LB-SEC/LB 

789.135 

W/A 

GM/CM-SEC 

60.323 

CME 

•338291 

F/A 

GM/CM2 

45748.06 

F/A 

L8/FT2 

93699.41 

F/A-POl 

.568759 

PSM 

1144.053 

DELPS 

344.053 

PE 

743.975 

PM 

1140.802 

DELP 

396.627 

TE 

4597.190 

TM 

399.765 

FEL/D 

-2.750610 

fml/d 

-1.976105 

L/D12 

786.456 

REBM/D 

2056414 

REBE/D 

393564 

Q 

-16464.71 

QT 

-16464.16 

CMM 

•060907 

1/IMAX 

.961027 

ETATS 

.969890 

PSE/PSl 

•699268 

PDAV 

155.685 

TCWAV 

201.699 

TWMAX 

4800.499 

TCMAX 

4926.613 

GWT 

.050 

L/D 

496.217 

ACC 

.007853 

WPC 

.006738 

FPC 

5.110162 

GV 

.793563 

D-55 


ROCKET  SYSTEM  CALC.- 


X/L 

M 

0* 

•338291 

*121043 

*302167 

*170300 

*288257 

*208014 

.277815 

*239794 

•269140 

*267817 

*261569 

*293206 

*254765 

•316629 

*248531 

.338525 

*242737 

*359198 

*237294 

.378870 

*232137 

.397708 

*227212 

.415842 

*222480 

.433372 

*217919 

*450381 

*213496 

.466938 

*209191 

*483099 

*204987 

*498912 

*200871 

•514418 

*196829 

*529654 

*192852 

*544652 

*188930 

*559439 

*185059 

.574039 

*181220 

*588474 

.177412 

*602766 

.173621 

.616932 

•169845 

•630991 

*166088 

*644961 

*162340 

•658859 

*158590 

*672700 

*154842 

•686503 

•151092 

*700288 

*147334 

.714075 

*143563 

.727883 

.139773 

.741735 

.135956 

.755661 

.132126 

.769686 

.128256 

*783837 

*  124336 

.798142 

.120358 

.812633 

*116319 

.827344 

*112199 

.842336 

.108031 

.857661 

*103728 

.873358 

*099275 

*889478 

*094653 

*906118 

*089934 

.923383 

*084916 

.941322 

*079582 

.960018 

*073895 

.979611 

*067867 

.000041 

*060907 

■QOFX  FOR 
TS 

4668*000 

4682*640 

4497*280 

4411,920 

4326*560 

4241*200 

4155*840 

4070*480 

3985*120 

3899*760 

3814*400 

3729*040 

3643,680 

3558*320 

3472*960 

3387*600 

3302*240 

3216*880 

3131.520 

3046*160 

2960*799 

2875*440- 

2790*079 

2704*719 

2619*359 

2533*999 

2448*639 

2363*279 

2277*919 

2192*559 

2107*199 

2021,839 

1936*479 

1851,119 

1765,759 

1680.399 

1595,039 

1509,679 

1424,319 

1338*959 

1253*599 

1168*239 

1082*879 

997*519 

912,159 

826*799 

741,439 

656.079 

570.719 

485*359 

400*000 


CHOPPED  SIN 
T 

4597*190 
4525*755 
4445*468 
4363*856 
4281.591 
4198,925 
4115*984 
4032*837 
3949,531 
3866*093 
3782*544 
3698.895 
3615*157 
3531*337 
3447*445 
3363*484 
3279*461 
3195*379 
3111*242 
3027.053 
2942*816 
2858*532 
2774*202 
2689.829 
2605*416 
2520*964 
2436*474 
2351*949 
2267*389 
2182*795 
2098.171 
2013*516 
1928.833 
1844,119 
1759,371 
1674.602 
1589,805 
1504*977 
1420.127 
1335*248 
1250*330 
1165*400 
1080.437 
995*433 
910*406 
825*364 
740*281 
655.172 
570.023 
484*898 
399,765 


RSSOOl 

PS 

800*000 
874,193 
902*013 
922*340 
938*831 
952*858 
965* 150 
976*133 
986*088 
995*204 
1003.624 
1011,453 
1018,773 
1025*643 
1032.117 
1038,238 
1044,036 
1049,544 
1054,784 
1059*778 
1064*545 
1069*103 
1073*462 
1077,636 
1081*631 
1085*463 
1089*136 
1092*661 
1096,045 
1099,295 
1102*413 

1105.412 
1108*291 
1111*059 
1113*717 
1116*274 
1118*831 
1121,096 
1123*361 
1125,626 
1127*634 
1129,643 
1131*651 

1133.413 
1135,174 
1136*936 
1138*469 
1140*002 
1141*431 
1142.859 
1144,053 


05/11/64 

P 

1000  RHO 

743*975 

.017494 

824*736 

*019699 

855*259 

.020799 

877*700 

•021745 

895*970 

*022625 

911*585 

.023473 

925*326 

*024306 

937,654 

*025136 

948.870 

*025971 

959.184 

*026817 

963.747 

*027679 

977*671 

*028561 

986*045 

*029468 

993*937 

*030403 

1001*402 

*031371 

1008.486 

*032375 

1015*225 

.033419 

1021,652 

*034507 

1027*792 

•035644 

1033*669 

*036835 

1039*302 

*038085 

1044*708 

*039400 

1049*904 

*040787 

1054*900 

*042252 

1059*710 

*043804 

1064*343 

*045452 

1068*809 

*047206 

1073*116 

*049077 

1077.273 

*051060 

1081*286 

*053230 

1085*162 

*055544 

1068*908 

*058043 

1092*529 

*060752 

1096*031 

*063700 

1099.419 

*066921 

1102*700 

*070456 

1105*875 

*074355 

1108*948 

*078680 

1111.923 

*083504 

1114*803 

*088923 

1117,591 

*095058 

1120*291  *102061 
1122*904  *110136 
1125*434  *119556 
1127.878  *130691 
1130*241  *144064 
1132*524  *160445 
1134*724  *180992 
1136*839  *207563 
1138*868  *243284 
1140*802  *293981 


ROCKET  SYCTEM  CALC. 

XP/L  DQODXL 
'••  •  0  , 
•'60522  .20»410 

•145671  ,494080 

•139157  .631952 

•223904  .736814 

•253805  .822622 

•280511  .395385 

•304918  .958395 

•327577  1,013710 

•348862  1.062698 

.369034  1.106358 

•388289  1,145409 

•406775  1,180402 

.424607  1.211768 

•441877  1,239848 

.458660  1,264925 

.475019  1.287225 

.491006  1,306938 

•506665  1,324224 

.522036  1,339218 

.537153  1,352035 

•552045  1.362772 

•566739  1,371516 

.581257  1,378337 

•595620  1.383298 

•609849  1.386455 

•623961  1,387852 

•637976  1.387531 

•651910  1,385523 

.665779  1.381856 

•679602  1,376547 

.693396  1,369611 

.707182  1.361051 

•720979  1,350866 

.734809  1,339042 

.746698  1.325558 

.762673  1.310376 

.776761  1.293452 

.790989  1,274733 

.805387  1,254148 

.819988  1.231615 

.834840  1,207010 

.849998  1,180183 

•865509  1.150975 

•881418  1.119221 

.897798  1,084675 

.914751  1.047006 

•932353  1,005916 

•950670  .961075 

•969814  .912064 

.989826  .858603 


QOFX  FOR  CHOPPED  SIP 
TW  TC 

4668.000  0. 

4733,000  4775.035 

4800.499  4900.154 

4796.749  4924.213 

4777.999  4926.613 

4751.748  4917.670 

4719.248  4899.846 

4683.623  4876.930 

4644.248  4848,712 

4602,372  4816,717 

4557.997  4781.148 

4511,747  4742.775 

4462.997  4701,082 

4412.995  4657.409 

4361.121  4611,197 

4307.996  4563.130 

4252.995  4512.628 

4196.121  4459.728 

4138.620  4405.715 

4079.870  4349.989 

4019.870  4292.574 

3958.620  4233,489 

3896,744  4173.377 

3833.619  4111.628 

3769.869  4048,878 

3704.869  3984,515 

3639.869  3919.797 

3574,243  3854,107 

3507,368  3786,827 

3440.493  3719.212 

3373.618  3651,266 

3306,118  3582,367 

3238.618  3513,140 

3170.492  3442,960 

3102,367  3372,450 

3034,242  3301.605 

2966.117  3230.418 

2898,617  3159,504 

2830.492  3087.604 

2762.366  3015,327 

2694,866  2943,281 

2627,991  2871,444 

2561,741  2799,782 

2491,76.1  2723,891 

2427.366  2653.111 

2365.490  2584.268 

2309.240  2520.420 

2259.240  2462.132 

2222.365  2416,213 

2206,115  2390,077 

2227,990  2401.169 


R3S001  05/11/64 

PD 

0. 

32,446 

76,921 

98.385 
114,711 
128,070 
139,398 
149.208 
157,819 
165,446 
172.243 
178.323 
183,771 
188 . 654 
193,026 
196.930 
200.402 
203,471 
206.162 
208.496 
210.492 
212.163 
213,524 
214,586 
215,359 
215.850 
216.068 
216,018 
215,705 
215,134 

214.308 
213,228 
211,895 

210.309 
203,469 
206,369 
204,006 
201.371 
198,457 
195,252 
191.744 
187,913 
183,737 
179,190 
174,246 
168,868 
163,003 
156.606 
149,625 
141,995 
133,672 


D-57 


ROCKET  SYSTEM  CALC.-OOFX  FOR  CHOPPED  SIN  RSSOOl  05/11/64 

Y/L  FIY/D  FEX/D  Y/D12  QY  0  REB/D 

1*000000  2*750610  0*  786*456  16464*16  0*  393564 

*878957  2*410644  -*332930  691.264  16048*82  -415*34  399342 

*829700  2*268871  -.468409  652*528  15648*14  -816*02  405262 

*791986  2*159310  -.572143  622.868  15255*74  -1208*42  411335 

*760206  2*066444  -.659552  597*876  14870*22  -1593*94  417568 

*732183  1*984225  -.736630  575*838  14490*68  -1973*47  423972 

*706794  1*909529  -.806462  555*872  14116*41  -2347*75  430558 

*683371  1*840491  -.870889  537.451  13746*80  -2717*36  437335 

*661475  1*775889  -.931113  520*231  13381*36  -3082*80  444317 

*640802  1*714872  -.987974  503.974  13019*66  -3444*50  451514 

*621130  1*656816  -1.042081  488.504  12661*34  -3802*82  458941 

*602292  1*601252  -1*093895  473*689  12306.08  -4158*08  466611 

*584158  1*547821  -1*143772  459.428  11953.66  -4510.49  474541 

*566628  1*496235  -1.191989  445*642  11603.92  -4860.24  482746 

*549618  1.446266  -1.238774  432.265  11256.70  -5207*45  491245 

*533062  1*397723  -1.284313  419*244  10911.89  -5552*27  500057 

*516901  1*350447  -1.328764  406.535  10569.40  -5894*76  509203 

*501088  1.304305  -1.372257  394.099  10229.14  -6235*02  518707 

*485582  1*259183  -1.414907  381*905  9891*07  -6573*09  528593 

.470346  1.214981  -1.456813  369.923  9555*13  -6909*02  538889 

.455348  1*171611  -1.498064  358*129  9221*29  -7242*87  549625 

*440561  1*129000  -1.538735  346.500  8889*51  -7574*64  560835 

*425961  1*087083-1*578893  335*018  8559*83  -7904*33  572554 

*411526  1*045801  -1*618598  323*665  8232*24  -8231*92  584824 

*397234  1*005103  -1*657906  312*426  7906*76  -8557.40  597688 

*383068  *964940  -1*696870  301*286  7583*39  -8880.77  611198 

*369009  *925266  -1*735540  290.229  7262*14  -9202.02  625408 

.355039  .886037  -1*773965  279*243  6942*99  -9521.16  640382 

*341141  *847216  -1*812191  268*313  6625*97  -9838*19  666189 

*327300  *808766  -1*850260  257*428  6311.07  -10153*09  672910 

*313497  *770645  -1.888226  246*573  5998.24  -10465*92  690633 

*299712  *732809  -1*926142  235*732  5687*39  -10776*77  709463 

.285925  *695219  -1*964062  224.890  5378.45  -11085*70  729517 

*272117  *657832  -2*002041  214.031  5071.35  -11392*81  750932 

.258265  .621294  -2.0.40141  203.138  4765.96  -11698*19  769584 

*244339  *583902  -2*078443  192*186  4462*05  -12002*11  795610 

*230314  *546559-2*117019  181.157  4159.47-12304.69  823905 

*216163  *509221  -2*155942  170.028  3858*12  -12606*04  854789 

*201858  *471848  -2.195288  158.778  3557.89  -12906*27  888648 

*187367  *434394  -2.235145  147*382  3258*68  -13205*48  925962 

*172656  *396811-2*275608  135*813  2960*37-13503*79  967328 

*157664  *359000  -2.316844  124*023  2662*44  -13801*72  1013504 

*142339  *320889  -2*358994  111*971  2364*67  -14099*49  1065472 

*126642  *282447  -2*402170  99*626  2067*20  -14396*95  1124531 

*110522  *243633-2.446508  86*949  1770*16-14693*99  1192432 

*093882  *204321  -2*492276  73.863  1473*00  -14991.16  1271614 

*076617  *164401  -2*539765  60*285  1175*38  -15288*78  1365581 

*058678  *123926  -2.589105  46*178  878*28  -15585.87  1479558 

*039982  *082933  -2*640527  31*475  582*46  -15881.70  1621741 

*020389  *041433  -2*694418  16*067  288*25  -16175*91  1805787 

-.000041  0*  -2*750610  0*  -.56  -16464.71  2056414 


D-58 


i^OCKET  SYSTEM  CALC.-QOFX  FOR  CHOPPED  SIN  KSSOOl  Oti/11/64 

ALPHA  E  NU  < 

1/DEG  F  PSI  BTU/IN-SEC-F 

.28C00E-05  .14000E  07  .33000E  00  .7000nE-03 

D  V 

IN. 

•  100  .300 

STRESS  CALCULATIONS  FOR  ZERO  STRESS  GRADIENT  AT  R=B 


D>59 


ROCKET  SYSTEM  CAI.C.-QOEX  FOR  CHOPPED  SIN  R3S001  05/11/64 


XL 

p 

PD 

PSIA 

MW/FT3 

>• 

743.975 

0. 

.1210 

824.736 

32,446 

.1703 

855.259 

76.921 

.2080 

877.700 

98.385 

.2398 

895.970 

114.711 

.2678 

911.585 

128.070 

.2932 

925.326 

139.398 

.3166 

937,654 

149.208 

.3335 

948.870 

157,819 

.3592 

959.184 

165 . 446 

.3789 

968,747 

172.243 

.3977 

977,671 

178.323 

.4158 

986 ,045 

183.771 

.4334 

993.937 

188.654 

.4504 

1001.402 

193,026 

.4669 

1008.486 

196,930 

.4831 

1015.225 

200.402 

.4989 

1021.652 

203,471 

.5144 

1027,792 

206.162 

.5297 

1033.669 

203.496 

.  5447 

1039.302 

210.492 

.5594 

1044,708 

212.163 

.5  740 

1049.904 

213.524 

.5885 

1054.900 

214.586 

.6028 

1059.710 

215.359 

.6169 

1064,343 

215.850 

.6310 

1068,809 

216,068 

.6450 

1073,116 

216.018 

.6589 

1077.273 

215.705 

.6727 

1081.286 

215.134 

.6865 

1035,162 

214.308 

.7003 

1088.908 

213.228 

.7141 

1092.529 

211.895 

.7279 

1096.031 

210.309 

.7417 

1099.419 

208.469 

.7557 

1102.700 

206.369 

.7697 

1105.875 

204.006 

.7838 

1108.948 

201.371 

.7981 

1111.923 

198,457 

.8126 

1114.803 

195.252 

.8273 

1117.591 

191.744 

.8423 

1120.291 

187.913 

.3577 

1122,904 

183.737 

.8734 

1125.434 

179.190 

.8895 

1127.878 

174,246 

.9061 

1130,241 

168.868 

.9234 

1132,524 

163.003 

.9413 

1134.724 

156.606 

.9600 

1136.839 

149.625 

.9796 

1138.868 

141.995 

.0000 

1140.802 

133,672 

SI  GO 

SIGZ 

SIGR 

PSI 

PSI 

PSI 

-744,0 

0 

-744.0 

-463,1 

163 

8 

-824.7 

2.0 

388 

3 

-855.3 

218,7 

496 

7 

-877.7 

382.4 

579 

1 

-896.0 

515.6 

646 

6 

-911.6 

628.1 

703 

7 

-925.3 

725.1 

753 

3 

-937.7 

809,9 

796 

7 

-948.9 

884,6 

835 

2 

-959.2 

950.8 

869 

6 

-968.7 

1009.6 

900 

3 

-977.7 

1061.9 

927 

8 

-986.0 

1108,5 

952 

4 

-993.9 

1149.7 

974 

5 

-1001.4 

1186,1 

994 

2 

-1008.5 

1218.1 

1011 

7 

-1015.2 

1245.9 

1027 

2 

-1021.7 

1269.7 

1040 

8 

-1027.8 

1289.8 

1052 

6 

-1033.7 

1306.5 

1062 

7 

-1039.3 

1319.7 

1071 

1 

-1044.7 

1329.6 

1078 

0 

-1049.9 

1336.5 

1083 

3 

-1054.9 

1340,3 

1087 

2 

-1059.7 

1341,1 

1089 

7 

-1064.3 

1339.1 

1090 

8 

-1068.8 

1334.2 

1090 

6 

-1073.1 

1326.6 

1089 

0 

-1077.3 

1316.2 

1086 

1 

-1081.3 

1303.1 

1081 

9 

-1085.2 

1287.3 

1076 

5 

-1088.9 

1268.9 

1069 

7 

-1092.5 

1247.7 

1061 

7 

-1096.0 

1223.8 

1052 

4 

-1099.4 

1197.1 

1041 

8 

-1102.7 

1167.6 

1029 

9 

-1105.9 

1135,2 

1016 

6 

-1108.9 

1099,7 

1001 

9 

-1111.9 

1061.1 

985 

7 

-1114.8 

1019.2 

968 

0 

-1117.6 

973.8 

948 

7 

-1120.3 

924.7 

927 

6 

-1122.9 

871.5 

904 

6 

-1125.4 

813.9 

879 

7 

-1127.9 

751.6 

852 

5 

-1130.2 

684.0 

822 

9 

-1132.5 

610.5 

790 

6 

-1134.7 

530.6 

755 

4 

-1136.8 

443 . 5 

716 

9 

-1138.9 

348.9 

674 

8 

-1140.8 

D-60 


:^OCKET  SYSTEM  CALC. 


XL 

0, 

.1210 
.1703 
.2080 
.2398 
.2678 
.2932 
.3166 
.3385 
.3592 
.3789 
.3977 
.4158 
.4334 
.  4504 
.4669 
.4831 
.4989 
.  5  144 
.5297 
.5447 
.5594 
.5740 
.5885 
.6028 
.6169 
.6310 
.6450 
.6589 
.6727 
.6865 
.7003 
.7141 
.7279 
.7417 
.7557 
.7697 
.7838 
.7981 
.8126 
.8273 
.8423 
.8577 
.  8  734 
.8895 
.9061 
.9234 
.9413 
.9600 
.9796 
1.0000 


SIGST 

PSI 

491,0 

588.3 
669,9 

714.2 
748.6 

777.2 
801,8 

823.4 
860.1 

925.5 

983.5 

1035.1 

1081.2 
1122.2 

1153.6 
1190,9 
1219.2 
1244.0 

1265.4 

1283.6 

1298.7 
1311.0 

1320.4 

1327.1 

1331.2 

1332.8 

1331.8 

1328.5 
1322.7 

1314.6 

1304.2 

1291.4 

1276.4 
1259.0 

1239.3 

1217.2 

1192.7 

1165.6 
1136.0 

1103.7 
1068,6 

1030.5 
993,0 

988.4 

983.3 

977.5 
970.9 

963.6 

955.4 
946.3 

936.2 


-OOFX  FOR  CHOPPED  SIN  RSSOOl 

SIGSE 


5IGSTP 

PSI 

-498.5 

-726,0 

-984,1 

-1113.3 

-1213.3 

-1295,1 

-1364,9 

-1425,5 

-1479,1 

-1526,7 

-1569.5 

-1607.9 

-1642.6 

-1674.0 

-1702.4 

-1728.0 

-1751,1 

-1771.8 

-1790.3 

-1806,7 

-1821,1 

-1833,7 

-1844,4 

-1853,4 

-1860,8 

-1866,5 

-1870.7 

-1873,3 

-1874,4 

-1874,0 

-1372,2 

-1869,0 

-1864,3 

-1858,1 

-1850,6 

-1841,6 

-1831,1 

-1819,0 

-1805.5 

-1790,3 

-1773.4 

-1754,7 

-1734.2 

-1711,6 

-1686,8 

-1659,6 

-1629.8 

-1597,1 

-1561.2 

-1521,8 

-1478,6 


D-6l 


SIGSH 

PSI 

744,0 

988,5 

1243.6 

1374.4 

1475.1 

1558.1 

1629.1 

1690.9 

1753.8 

1843.8 

1919.5 

1987.3 
2048.0 

2102.4 

2151.1 

2194.6 

2233.3 

2267.5 

2297.5 

2323.5 

2345.8 

2364.4 

2379.6 

2391.4 
2400,0 

2405.5 

2407.9  . 

2407.3 

2403.9 

2397.5 

2388.3 

2376.2 

2361.4 

2343.7 

2323.2 

2299.8 

2273.5 

2244.1 

2211.6 

2175.9 

2136.8 

2094.1 

2050.5 

2030.1 

2007.6 

1982.8 

1955.4 

1925.3 

1892.2 

1855.7 

1815.6 


PSI 

861.2 

899.3 

1049.8 

1186.4 

1306.4 

1412.1 

1505.9 

1589.6 

1664.7 

1732.4 

1793.5 

1848.8 

1898.8 

1943.9 

1984.6 

2021.2 

2053.9 

2083.1 

2108,8 

2131.2 

2150.6 
2167,0 

2180.5 

2191.3 

2199.4 
2205.0 
2208.0 

2208 . 6 

2206.9 

2202.7 

2196.3 

2187.7 

2176.8 

2163.7 

2148.4 

2130.9 

2111.2 

2089.3 

2065.1 

2038.6 

2009.9 

1978.7 
1945.0 

1908.8 

1869.9 

1828.4 
1784,0 

1736.7 

1686.7 
1634,0 

1579,2 


05/11/64 

SIGDE 

PSI 

700.5 

815,8 

1038.1 

1185.2 

1306.2 

1409.6 

1499.7 

1579.1 

1649,9 

1713.4 

1770.5 

1822,0 

1868.5 

1910.5 

1948.3 

1982.3 
2012,8 
2040.0 

2064.1 

2085.2 

2103.5 

2119.1 

2132.1 

2142.6 

2150.7 

2156.5 
2160,0 

2161.3 

2160.4 

2157.4 

2152.3 

2145.2 
2136,0 

2124.8 

2111.6 

2096.3 
2079.0 

2059.6 

2038.1 

2014. 4 

1988.4 

1960.2 

1929.4 

1896.2 

1860.2 

1821.4 

1779.5 

1734,4 

1685,9 
1634,0 

1578.7 


'tOCKET  SYSTEM 


L 

IN. 

49,620 

RAD 

IN. 

31.30 


CALC.-OOFX  FOR  CHOPPED  SIN  RSSOOl 


TE 

TR 

3R 

SE 

IN. 

1.181 

IN. 

3,150 

.900 

.900 

AC 

EWTC 

EWTR 

EWTE 

FT2 

LB 

LB 

LB 

6.41 

6393,88 

1984,12 

218,19 

03/11/64 

BO 

1/CM2 

0. 

EWTT 

LB 

8596.18 


D-62 


«0«£T  SYSTEM  CALC.-OOEX  POR  CHOPPED  SIN  RSSOOl 


TSE 

deg  r 

4668*000 

CL 

IN* 

49,620 

PNE 

PSIA 

14*6959 


PSE  WA 

PSIA  LB/IN2--SEC 
800*000  *858 

V  D 

IN* 

*300  *100 

VP  HP 

FT  ft 

26000*0  1584000*0 


JULIE 

2 

TSRI 
DEG  R 


TSRI  PSfjl 

DEG  R  PSIA 

400*000  1200*000 

RAD 

IN* 

31.300 


05/11/64 


TkM 

deg  R 

0. 


ALPHA 
1/DEG  R 
•28000C>05 

TR 

IN*  ] 

3*150  ] 

RHOPS 
LB/FT3 
.48400E  03 


E 

PSt 

*14000E  07 


TE 

IN* 

1*181 


SIGPS 

PSI 

«60000E  05 


I5P  ISPMAX  w/A 

w/cm-sec  ■ 


•33000E  00 


RHON 
1.8/FT3 
.48400B  03 


BTU/IN-SEC-R 

•70000E-03 


SI OMAN 
PSI 

«60000E  09 


F/A 

6M/CM2 


»«.3e5 


F/A-POI 


PSM 

PSIA 

1144*053 

FEL/O 


DELPS 

PSIA 

344,053 

FML/D 


PE 

PSIA 


PM 

PSIA 


TE 

deg  r 


743*975  1140.802  396:827  4597:i?o 


L/D12 

-2.750610  -1*976105  '^5^:J56 

CMM  I/IMAX  ETATS  PSE/PSl 
.060907  *961027  *969890  ,699268 


RE8M/D 

1/IN 

2056414 


rebe/d 

1/IN 


0 

btu/lb 


393564  -16464*71 


TCMAX 
DEG  R 
4926*613 

RAD 

IN* 

31,30 


GWT 

IN* 

•  050 


496*217 

EWTC 

LB 

6393*88 


ACC 

IN2 

.007853 

EWTR 

LB 

1984*12 

SIGSHM 

PSI 


POAV 

MW/FT3 

155,685 

WPC 

LB/SEC 


TCWAV 
DEG  R 
201*699 


T^ 

DEG  F 
399* 7« 

QT 

btu/lb 

-16464*1 

TWMAX 
DEG  R 
4800.49 


*006738  5*110162 


EWTE 

LB 

218*19 

SIGDEM 

PSI 


EWTT 

LB 

8596,18 


*657  2709.128  *793  2407.896  2161^255 


D-64 
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